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ABSTRACT 


l.1 THIS PACKAGE CONTAINS a NOT VIDUAL UTILITY PROGRAMS 
FOR THE RKXX PL US 8 MINI MONT TOR WHICH ae ae SELECTION 
AND PARAMETER INPUT VIA THE CONSO TILITY 
PECKAGES ARE EXPLAINED IN DETAIL IN PARAGRAPH ° 


REQUIREMENTS - 


2.1 EQUIPMENT | 
PDP=11 WITH RKXX DRIVE(S) 


2.2 STORAGE 
THIS PROGRAM REQUIRES 8K 


&.3 a are PROGRAMS 
THIS IS NOT A OIAGNOSTIC, PACKAGE IT IS ASSUMED THAT ALL 
EQUIPMENT IS FUNCTIONAL 


LOADING PROCEDURE 


3.1 METHOD 
weer foc NORMAL aoe TAPES a BE FOLLOWED 

ABSOLUTE oe T BE IN MEMORY 

PLACE MBINaRY 7 APE iN § READER. 

LOAD ADORESS #7500 (*DETERMINED BY LOCATION OF 


LOADER). 
D. PRESS "START" PROGRAM WILL LOAD. 


OwD 


STARTING PROCEDURE 
4.1 CONTROL SWITCH SETTINGS 
NONE 


4.2 STARTING ADDRESS 
200 MINI MONITOR 


4.3 PROGRAM AND/OR open e ACTION 
LOAD PROGRAM INTO MEMORY 
SET SWITCH REGISTER TO STARTING ADDRESS (200) 
LORD ADDRESS 
PRESS START 


IF_ THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (1.E. AN 11°34) 


ARDWARE SWITCH REGIS R IS 
USE_A SOFTWARE” SWITCH RESISTER. ait 


SOFTWARE’ SWI GI 7 THE 
SETTINGS OF THE *SOFTWARE’ SWITCHES ARE CONTROLLED THROU A KEYBOARD 
NTROL THE PROGRAM WILL 


CH 
RECOGNIZE THE ‘CONTROL G’ weer ny faa ENTERS 
THE SCOPE ROUTINE OR BEGINS A 
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TU THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 
'SWR = NNNNNN NEW =” 


EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED., "RUBOUT’ AND 
"CONTROL U’ FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 

DURING SWITCH ENTRY. 


ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE *SOFTWARE’ SWITCH 
REGISTER MAY BE wre F THE ep OgReY E AND: ALL I6 BUTT CHES IN THE 
*UP* POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE 

SOE THARE® REGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST 


PROGRAM WILL TYPE MINI MONITOR ROUTINE 


OPERATING PROCEDURE 


S.1 OPERATIONAL SWITCH SETTINGS 
Bie 9.0 FOR SWITCHES APPLICASLE TO INDIVIDUAL 


5.2 SUBROUTINE ABSTRACTS 
NOT APPLICABLE 


5.3 PROGRAM AND/OR OPERATOR ACTOR 
SEE INDIVIDUAL PACKAGE DESCRIPTION (PARAGRAPH 9) 


ERRORS 


6.1 ERROR HALTS AND DESCRIPTION 
IF HALTED A_MAJOR PROBLEM EXIST CHECK 
CODE AT HALT PC TO DETERMINE WHAT 
OCCURRED. 


6.2 ERROR RECOVERY 
EXPLAINED IN DETAIL IN INDIVIDUAL PACKAGE 
DESCRIPTION (PARAGRAPH 9) 







RESTRICTIONS 


7.1 STARTING RESTRICTIONS 
IT IS NOT RECOMMENDED THAT YOU START AT AN 
ADDRESS OTHER THAN 200, (REASON EXPLAINED IN PARAGRAPH 9.1) 
UNLESS DIRECTED TO BY THE PROGRAM. 


7.2 OPERATIONAL RESTRICTIONS 
EXPLAINED IN DETAIL IN INDIVIOUAL PACKAGE DESCRIPTIONS (PARAGRAPH. 3) 





EXECUTION TIME 
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VARIES WITH SELECTED ROUTINE, NUMBER OF DRIVES, ETC. 


PROGRAM DESCRIPTION 


Uric ALL gu CoMPRTEOIG Ty STING OSCILLATING. SEEKS FOR SERVO 
ADJUSTRENT ae: LOGIC KRVEFORH ARELYS Boake t FORMATTING 
T panel TE Destine (INDICATOR LAMPS, 


AND 
SUTTCHES 


SECTION 
0 


NWU1-£GITr- 


PURPOSE: 


DESCRIPTION: 


USE: 


TYPE=X 


ee 


0 VERIFICAT 
THE BREKAGE 18 ROLE INTO *eive SECTIONS 


NAME 


INDEX 
COMPATIBILITY Lg @ 
OSCILLATING SEEK 


CKAGE 
FOR OTTER puree PURIFIER 


FRONT P 


RKOS CONTROL PANEL _TEST #2 
HEAD ALIGNMENT TIN 
POWER FAILURE (DURING WRITE) T 


NOTE: NORMAL LINKAGE TO ANY OF THESE PACKAGES IS THRU 
SECTION O (SEE PARAGRAPH 9.1) 


9.1 SECTION O INDEX 
TO ALLOW THE USER TO Select AND or a's A 
THE DEVI 0 


SA CH THE 
APTER THE FABLE IS TYPED, THE QUESTION “TYPE =" 
HE USER THEN TYPES THE NUMERAL 0 


S A TEST, 
THIS IS EXAMPLE OF THE ACTUAL OUTPUT: 


RK11 UTILITY PACKAGE 


INDEX sal 
COMPATIBILITY gn 


OSCILLATIN 
ree if 


- 


G SE 
ait? 


Ree VE VERIFIER 
TEST 


ANEL 
RKO KONTROL PANEL teat te 

AD ALIGNMENT ROU 
POWER FAILURE (ARITED TEST 


WERE “X" IS THE RESPONSE (0-7) BY THE USER 
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USER SELECTS 
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ERROR INFO: ANY ILLEGAL INPUT IS HANDLED, A QUESTION MARK 
1S TYPED AND THE QUESTION "TYPE =" IS RE-ASKED. 


9.2 SECTION 1 COMPATIBILITY PACKAGE 


PURPOSE: TO CONFIRM THE FACT THAT A GROUP OF DRIVES 
(A awe OF EIGHT) ARE TRULY COMPATIBLE. 
THIS PACKAGE DOES NOT APPLY TO RK-OSF DRIVES. 


DESCRIPTION: THIS PA ek AGE ALLOWS A USER TO AUTOMATICALLY TEST 


WWIWWGIIGIG 5 tw 


a eT eT ae 
NOUS WTO 


gore On tea tty OF UP TO EIGHT (8) DRIVES SIMPLY 
BY STATING THE DRIVE NUMBERS TO BE TEST 


STED. 
TEST DOES THE REST, NSTRUCTIN 

TO 5, BOE THE P HH He rrr Itatrons. OF R HERE ARE 
IF THERE A ay 0 P ROCES ONE (1) TO 
SEVEN (7) DRIVES MAY BE 0 A 

ONLY Ree) DRIVE (ANY BRINE NEMER) =, fo 


BE ON 
COMPATIBILITY-0 DEFINITION COMPATIBILITY INFERS 
MORE THAN THE FACT THAT INE ORATION WHICH 


BNOTHER. 
FOR ORI VES TO BE CONSIDERED TRULY COMPATIBLE 
ANY DRIVE SHOULD BE ABLE T 0 READ HAT 
WRITTEN BY ANY OTHER DRIVE AND ALSO MUST BE ABLE 
TO OVERWRITE A PORTION OF INFORMATION WRITTEN 
BY ANOTHER DRIVE, WITH NEW INFORMAT 

S IS A VERY BROAD CERIN] ITION 


USE: THE BELOW IS AN EXAMPLE OF ACTUAL OUTPUT THE USER 
WANTS TO RUN SINGLE PROCESSOR MODE AND TEST 
COMPATIBILITY ON THREE (3) DRIVES WHOSE UNIT NUMBERS 


atewecoeces 


KRFEERAREE 
EXAMPLE 1 . 
NAME TYPE 
INDEX 0 
COMPATIBILITY PACKAGE es 
OSCILLATING SEEK PACKAGE 2 
At dU om a Le | VERIFIER re 
RKOS CONTROL PANEL TEST 4 
RKOS CONTROL PANEL reat #2 S 
HEAD ALIGNMENT 6 
POWER FAILURE (RITE) TEST 7? 


YPE=]1 
DRIVE NUMBERS ON SYSTEM 1=0,1,3. 
IS THERE A oe ersten 


M WRI NABLE 
PRESS CONTINUE WHEN DRIVE RDY 
oa PACK ON DRIVE #1 
MAKE PACK WRITE ENABLE 
PRESS CONTINUE WHEN DRIVE RDY 
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318 MOUNT PACK ON DRIVE #3 

31$ MAKE PACK WRITE ENABLE 

320 ae CONTINUE WHEN DRIVE RDY 

32 MOUNT PACK ON DRIVE #0 

32 MAKE PACK_WRITE ENABL 

323 PRESS CONTINUE WHEN DRIVE RDY 

324 MOUNT PACK 0 Mi? # 

3eS MAKE PACK _WRIT 

3e6 sop a WHEN DRIVE RDY 
mn T PACK ON DRIVE #3 







AKE PACK WRITE ENABLE 
329 PRESS CONTINUE WHEN DRIVE RDY 
330 DONE! 
a3 RK11 UTILITY PACKAGE 









333 NAME TYPE 

334 INDEX 0 

335 COMPATIBILITY PACKAGE 1 

id RELKLKLERE 

338 THE USER SELECTED TYPE ONE (1) mo a Nee 
333 THE MESSAGE RKXX eee ne ty PACKAGE AND WAS THEN 

340 ASKED FOR SYSTEM 1 DRIVES HE TYPES EACH SELECTED 

241 DRIVE NUMBER SEPARATED BY COMMAS HE TERMINATES THE 

342 STRING WITH A PERIOD THEN A CARRIAGE RETURN 









343 HE + ASKED IF THERE IS A SECOND SYSTEM, 

344 HE TYPES N FOR NO. 

345 i. NOW RECEIVES A STRING OF MOVE DIRECTIVES TELL Ts 
346 HIM EXACTLY WHERE TO MOVE THE TEST PACK AND W TO 
347 DO. FINALLY THE USER Bt REEELYES THE “"SSAGE DONE! 
348 peices - SUCCESSFUL PASS 

349 THIS POINT on ORIVE WHICH HAS NOT BEEN 

350 DECLARED DOWN AND DID NOT RECEIVE AN ERROR# 

3Si MESSAGE IS COMPATIBLE WITH ANY OTHER SELECTED 

3Se DRIVE MEETING THE SAME CONDITIONS. 

333 FINALLY THE INDEX ROUTINE IS AUTOMATICALLY 

CM Se Erion AND USER IS READY TO MAKE ANOTHER 






356 *#SEE ERROR INFO TO DETERMINE THE Bis. OF ERROR 
357 WHICH CONSTITUTES INCOMPATABIL ITY 
358 KREKSEREEES 






360 EXAMPLE 2. — 






ste THE USER NOW DESIRES TO TEST pl be ON 
363 pa C SYSTEMS HE HAS UNITS 0,1 ON SYSTEM we 
364 AND UNIT 0 ON sySTEM 2, IT obs LIKE THIS.. 

365 RK11 UTILITY PACKAGE 







367 NAME TYPE 








368 INDEX 0 
369 COMPATIBILITY. PACKAGE. l 
370 OSCILLATING SEEK PACKAGE 2 
371 FORMATTER-SUREACE VERIFIER 3 
372 | RKOS CONTROL PANEL TEST y 

pe RKOS CONTROL PANEL TEST #2 5 
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INTO THE LOW BYTE (BITO-7) OF THE SWITCH 1 AND THE “LAS 






Byte Bi ADDRESS” EN PRESS CONTINUE INTO THE H 


78-18) 
STRUC 


CONTINUE, 
EXAMP 


LE TYPEOUT 
INVALID ADDRESS IN SWITCH REGISTER TRY AGAIN 
INVALID ADDRESS IN SWITCH REGISTER TRY AGAIN 
INVALID ADDRESS IN SWITCH REGISTER TRY AGAIN 


XENOTE : ¥¥ BOTH DRIVES OF AN RK-OSF_SHOULD NOT BE SELECTED 
FOR TESTING AT THE SAME TIME. 


TH a. 
TIONS T 


ERROR INFO: IF. aN oTCLEGAL ADDRESS IS SELECTED A MESSAGE IS TYPED 
AND USER MEARLY SELECTS LEGAL ADDRESS AND DEPRESSES 


9.4 SECTION 3 FORMATTER-SURFACE VERIFIER 


PURPOSE: TO FORMAT VIRGIN PACKS or REFORMAT AN OLDER 


PACK AND VERIFY ITS SURF 
DESCRIPTION: SELECT TYPE 3, RESPOND 


TQ QUE 
BY i Yee SWITCHES See TQ 


USE: SELECT TYPE 3, RESP oot 


SETTING OF SWITCH REG 


KLKRLKKAKTE 


RK11 UTILITY PACKAGE 
NAME 

INDEX 

COMPATIBILITY PACKAGE 


OSCILLATING SEEK PACKAGE 
Ree CONTROL PAKEL VERIFIER 


ROUTINE 
POWER FAILURE (WRITE) TEST 


TYPE 


-O 


NMUCOIT 


STION 


N PACK GOOD 


FORMATTED. 
o,f QUESTION WITH 


YPE=3 
FORMATTER-SURFACE VERIFIER, SET SW REG WITH DRIVE #°S 


PACK GOOD. 
RK11 UTILITY PACKAGE 


NAME 
INDEX 
COMPATIBILITY PACKAGE 


TYPE 
0 


RXKRARRRKR 
AFTER THE > ie A gt dt A GOOD MESSAGE IS 
GIVEN AND A CHECK IS MADE TO SEE IF THERE ARE 


ANY MORE PACKS TO BE FORMATTED. 





IF THERE ARE 
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NONE CONTROL IS TRANSFERRED TO THE pec 
ERROR INFO: SYSTEN REG BLEM, IF THE MESSAGE.. 


S TYPED IT SHO TCATES A ro} DRIVE OR 

CONTROLLER RUN DIAGNOSTICS, THE PROCESSOR WILL HALT 

PRESS CONTINUE TO RETURN TO MINI MONITOR. 

BAD SPOT, OR SURFACE PROBLEM, ETC. 

PACK FAILED AT (IN OCTAL) CYLINDER SECTOR SURFACE 

9.5 SECTION 4 RKOS CONTROL PANEL TEST 

PURPOSE : TO gah Be okt x INDICATOR LAMPS, AND INTERLOCKS 
DESCRIPTION: SELECT TYPE 4, RESPOND TO QUESTION WITH UNIT NUMBER, FOLLOW 

DIRECTIONS GIVEN. AT COMPLETION MESSAGE "DONE!" IS’GIV wen 
USE: SELECT TYPE 4, Bi - QUESTION WITH THE UNIT NUMBER.. 

NAME 


INDEX 
ata te PACKAGE 




















A MENT IN 
POWER FAILURE (WRITE) TEST 








YPE=4 
RKOS CONTROL PANEL TEST, WHICH DRIVE?0 
ON a ft #0 


WRITE PROTECT THE DR™VE THEN PRESS CONTINUE 
CLEAR WRITE PROTECT THEN PRESS CONTINUE 


CAUTION! TRY TO OPEN | THE DOOR, DO NOT FORCE: 
DOOR SHOULD NOT OPEN! 
PRESS CONTINUE WHEN FINISHED 


PUT DRIVE IN LOAD, WAIT FOR LOAD LIGHT 
PRESS CONTINUE WHEN FINISHED 


OPEN THE DOOR, PUT DRIVE IN RUN 
CAUTION! IF RUN LIGHT ON ERROR! DEPRESS 
YOAD IMMEDIATELY, CONTINUE WHEN FINISHED 


REMOVE THE PACK, CLOSE THE DOOR 
PUT DRIVE IN RUN, DRIVE SHOULD NOT 
RUN. -INTERLOCKS HAVE BEEN CHECKED 













RK11 UTILITY PACKAGE 
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INDEX 
COMPATABILITY PACKAGE 


RK TROL PANEL 

RKOS CONTROL TEST #2 
HEAD ALIGNMENT ROUTINE 
POWER FAILURE (WRITE) TEST 


TYPE= 


8.6 SECTION S 


PURPOSE: 


DESCRIPTION: 


USE: 


MO1 














NAME TYPE 


NOW CWO 


KLKHEKEEEE 
RKOS CONTROL PANEL TEST #2 


TO GIVE A CONTINUOUS MONITORING AND 
CHECKING CAPABILITY FO THE FOLLOWING 
CONDITIONS ON THE VARIOUS DRIVES: 
OFF LINE (RDY CLR)/ON LINE (RDY SET) 
WRITE PROTECTED/WRITE ENASLED 
POWER LOW/POWER UP ‘ 
SEEK INCOMPLETE /SEEK 0K 
SELECT TYPE 5 ALL THE ORI VES THA 

BRE TO ee MON ont TORE AND CHECKED ON RIN’ 


PROGRAM HAS TO KNOW HICH DRIVES ARE TO 


BE CHECKED. 
AFTER HAVING SELECTED TYPE S AND PUTTING 
THE DRIVES THAT ARE TO BE MONITORED ON 
*RUN’. THE PROGRA M PRINTS OUT ALL THE 

OR TVES ‘THAT ARE °ON LINE’. 


DRIVE O ON LINE 
DRIVE 1 ON LINE 
DRIVE 2 ON LINE 


THE PROGRAM, fren 3 STARTS SCANNING ALL 

















PROTECTED. 
EX: IN A SYSTEM UNDER TEST, IF A DRIVE IS PUT 
ON *LOAD’ BY THE USER IT GETS REPORTED, 
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654 IF THE USER SET ’WRITE PROT’ IT GETS 


p55 REPORTED. THE MESSAGES APPEAR AS FOLLOWING: 
: ? DRIVE O OFF LINE 
53 DRIVE WRITE PROTECTED 
659 7 DRIVE 2 
£60 DRIVE WRITE ENABLED 
661 DRIVE O POWER 
662 DRIVE 2 SEEK ok” 
p63 DRIVE O POWER OK 
565 NOTE THAT ONLY CHANGES IN STATUS ARE 
566 REPORTED. THESE CHANGES HAVE TO BE AFFECTED 
g67 BY THE USER, IF ANY CHANGE IN STATUS IS NOT 
668 DETECTED AND REPORTED BY THE PROGRAM 
£59 IT MIGHT IMPLY AN ERROR CONDITION. 
rd 
Erl 9.7 SECTION & | HEAD ALIGNMENT ROUTINE 
é 
67 PURPOSE: TO PROVIDE A FACILITY FOR HEAD ALIGNMENT, 
574 WITH DYNAMIC SELECTION OF THE UPPER OR 
675 LOWER | HEAD. 
676 DESCRIPTION: WHEN THE ROUTINE IS SELECTED THE 
77 FOLLOWING MESSAGE APPEARS: 
678 SET SHO=0 FOR SURFACE 0, SWO=i FOR SURFACE 1, 
579 SET SH1=1 ay TEST CYL 64, SET SWI=0 TO TEST 
680 CYLIND 
S81 Swo- ee i 
bee PUT ANY SW FROM 2-15 HI TO SELECT NEW DRIVE 
684 THEN THE FOLLOWING QUESTION IS fist: 
ges DRIVE? THE USER 
86 SHOULD TYPE IN THE DRIVE NUMBER THA 
687 HE WANTS TO SELECT. THE DRIVE. NUMBER IS 
89 SFr TXED WITH AN 'F’ TO TEST RK-OSF TYPE 
85 3 DRIVES. 
£96 
£91 
$2 TYPE=6 
533 DRIVE=0<CR> 
5 THE UPPER OR THE LOWER HEAD CAN BE 
| 6% SELECTED BY SHITCH 0. IF SURFACE O IS 
| §97 TO 3 SELECTED, PUT SW 0 TO 0. IF 
|: SURF A CE 1 IS Tb BE SELECTED PUT SW O ON 1. 
| £95 THE READS MAY BE POSITONED AT CYLINDER 64 
| 766 OR cre I NOER 105. SET SWisO FOR CYLINDER 105, 
| 70} SWi=1 Reever NDER 64. 
75 THE deb oran POSITIONS THE HEADS on THE SELECTED 
703 CYLINDER AND CONTINUOUSLY READS FROM 
754 THE SURF E LECTED. IF THE JEER SHES 
ros T0 c OTHER YLINDER IT CAN BE 
75 DiNANTCAL Y DONE BY FLIPPING SW 0 OR SW! 
kF F SOME OTHER DRIVE. 18 70 BE SELECTED, 
728 ANY SWITCH BETWEEN SW 2 AND SW 15 SHOULD 
756 BE PUT UP. THE Seton - DRIVE? 35 


i re  ———— ooo 
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ASKED AGAIN. THIS IS A CONTINUOUS ROUTINE, 
HENCE TO EXIT A HALT HAS TO BE DONE. 


eee Se be IS By WITH AN RK-OSJ CARTRIDGE 


ORIVE IS SELECTED, CYLINDER 


54 OF THE Rn ney 1S CYLINDER 130 OF THE F CRIvE 
(EVEN DRIVE}. CYL NOER 105 BECOMES CYLINDER § 
OF THE ODD DRIVE ON THE by K-OSF. 


- 
' 
= 
= 
‘ 
= 
i 
= 
os 
‘ 
= 
i 
= 
‘ 
= 
i 
- 


’ 
.Y 
? 
e 
. 
: 
e 
, 
. 
. 
. 
: 
PS 
! 
e 
« 


be} 
~~ 
' 
+ 
< 
3 
4 
5 
§ 
- 
8 
= 
S 
r 
we 
1 
= 
= 
se 
3 
Sy 
Ss 
g 


P9999 99 bd 
rorurorotragiys 


CUGwGhturore 


_ 3 
St tT pr tt thet a thitt 


ie | 
1IGIG!) 


<yoassass- 
i 4.4 te 


4.4 
(Mao £60 Co. 


~~ 
Se oe 


a 
~~) 


I 


+ 4 


wut 


“I~ 
wa 


{01K} Ewen FAILURE cod te WRITE) TEST 
i HIS TEST ns, Me KS et DAT pape ON THE DIS 


POWER (POWE 
: UPON SELECTING THIS TEST, THE PROGRAY FI 
THE FIRST AVAILABLE DRIVE AND INofea Es 
THE USER BY TYPING A M NESS AGE: veent's 


L 

N 

I 

ORIVE x X=DRIVE ve 

THEN IT PROCEEDS TO T9 WRITE UNIQUE par tenn 
5 

THR 


SROs THE POWER ON THAT DRIVE. i SENSING 3 Loss 
OF POWER THE PROGREM WILL ASK THE USER TO SUT 
THE POWER ON AGAIN: 


is) 
ON ie te THe —_ MESSAGE THE USER SHOULD 
PUT THE P N DETECTING POWER UP THE 
sae oy PROCEEDS 13 "CHECK THAT _THE ye WRITTEN 
N CYLINDERS 0 TO 15 WAS INTACT. IF A WRITE 
AE SK S ERROR OC cls (POSSIBLY MEANING THAT 
SOME OF THE DATA WAS DESTROYED DURING THE 
LOSS OF ene nb IS_REP Sell AS Di cemasined 


ERROR POWER-U KDA=X 
0X I IS THE * CONTENTS oF acpe AT Se * TIME oF 
THE PROGRAM DOES THE B8Qve POWER FATL TEST 

THE 


ON ALL DRIVES THAT ARE PRESENT, ONE AFTER T! 
Ay INA ROUND BOBSIN FASHION. EXIT IS THROUGH 


9.9 SECTION SPECIAL 


I~I~) 


“J! 


ERROR EXAMPLE 1 
FORMATTER-SURFACE VERIFIER 


ine Gonos C.000 SPU corfu coud 


THC CC CCT UT 


IINININIIY 


re oo ee eg 1 er eee 


ane T BELO OW EXAMPLES THE FOLLOWING FORMAT 
THE ae Tua FipEoUT COMMENTS ON WHAT 

AND :06C cunsed oR WHAT TO DO 
*#NOTES IF NECESSARY FoR SLARITY 
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MACYLL 27(732) 
. RKOS CONTROL PANEL TEST 


TYPE=1 
DRIVE NUMBERS ON SYTEM 1=0. 
IS THERE A SECOND SYSTEM?N 
Cu PACK ON DRIVE #0 
MRKE PACK WRITE ENABLE 
PRESS CONT INS we ‘ode RDY 
ORIVE WRITE PROTECTE 
Brave WRITE SROTECTED 
RKi1 UTILITY PACKAGE 
NAME re 


INDEX 
COMPATIBILITY PACKAGE 1 
OSCILLATING SEEK PACKAGE 2 


ERROR EXAMPLE 2 
RK11 UTILITY PACKAGE 





? z NAME 
756 INDEX 
731 COMPATIBILITY PACKAGE 
732 OSCILLATING SEEK PACKAGE 
733 FORMATTER-SURFACE VERIFIER 
733 RKOS CONTROL PANEL TEST 
7 KOS CONTROL PANEL TEST #2 
736 HEAD ALIGNMENT ROUTINE 
1 POWER FAILURE (WRITE) TEST 
733 YPE=] 
eo0 SATE "NUMBERS ON SYTEM 120. 
BOe IS THERE A SECOND SYSTEM?N 
803 oa PACK ON DRIVE 8 
504 AKE PACK WRITE ENABL 'e 

aS PRESS CONTINUE WHEN ORIVE 
S56 | DRIVE NOT READY 
69 DRIVE NOT READ 
Bo DRIVE NOT 
80S DRIVE NOT READY 

810 DRIVE NOT READY 

| 81! DRIVE NOT READ 

| Biz DRIVE NOT READY 

| 813 DRIVE NOT READY 

6:5 - DRIVE NOT pee Y 

Bis DRIVE NOT READY 
Bib DRIVE NOT READY 
617 ORIVE NOT sik 
ei2 DRIVE NOT 
818 OR 

| HE 00 

el 
, 
f 





4 


sTYPE ! SELECTION - 
‘DRIVE #0 SELECTED 


;NO SECOND SYSTEM 

sCONTINUE Fe aS BUT 

: CLEAR MBE PROTECT SWITCH 
W_RUNS TO FINISH 

THIS DOES not EFFECT 

OUTCOME OF TEST 


4 
mt) 
m 


NOUS Gofue-O < 


i NOT RRrOY Le rf UP 


IT Bors NOT EFFECT THE 
; THE OUTCOME OF COMPATABILITY 
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fo U 
~J 


das Sapa 


~) 


ht me th pt wu 


Oot 


ERROR EXAMPLE 4 


TYPE 
Sear TY PACKA 
ae LEER bateace : 
ERROR EXAMPLE 3 
RK11 UTILITY PACKAGE : 
NAME . TYPE 
~ INDEX 0 
COMPATIBILITY PACKAGE 1 
OSCILLATING SEEK PACK : 
FORMATTER-SURFACE VERIFIER 3 
RKOS CONTROL PANEL TE 5 
RKOS CONTROL PANEL TEST #82 5 
HEAD ALIGNMENT ROUTINE = 
POWER FAILURE (WRITE) TEST ? 





YPE=1 ;DRIVE RESET TIMED OUT 
ORIVE NUMBERS ON SYTEM 120,1,4,7. 


Re 4 SECOND SYSTEM?Y 
PNT PACK ON DRIVE #0 


PACK WRITE ENABLE :THIS MESSAGE IF CONTINUOUS 
PRESS CONTINUE WHEN DRIVE RDY INDICATED A DRIVE PROBLEM 
MOUNT PACK ON DRIVE # :THERE IS NO RECOVERY 
MAKE PACK WRITE ENABL 1: AND IF CON TINY 
PRESS CONTINUE WHEN DRIVE ROY ;LQAD_STAR ADDR ESS 209 
DRIVE RESET TIMED OUT :TS NECESSARY DIAGNOSTIC 
DRIVE RESET TIMED OUT :SHOULD BE RUA AGAINST THE 
DRIVE RESET TIMED OUT ‘FAILING ORIVE. 

DRIVE RESET TIMED OUT 
DRIVE RESET TIMED OUT 


#NOTE A SLOW DRIVE OR 4 pore hrc RNO egy 
MAY CAUSE THE MESSAGE TO APPEAR A FEW TIMES AND 
THEN ont} E THIS 1S Ok AND ILL NOT EFFECT THE 
OUTCOME HE TEST. 


OSCILLATING SEEK PACKAGE 2 
FORMATTER-SURFACE VERIFIER 3 
RKOS CONTROL PANEL TEST 4 


YPE=] 
ORIVE NUMBERS ON SYTEM 1:0. 


IS THERE A SECOND SYSTEM?N ;SAME AS ABOVE BUT FUNCTION 
MOUNT PACK ON DRIV 3 #0 :WAS A CONTROL RESET 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE ROY ;SLL COMMENTS ARE THE SAME 
CONTROL RESET TIMED OUT ;AS EXAMPLE 3 








MAINDEC$11-DCRKT=C 
DIRKIC. SRE 


3 
$ 
| 
S 
5 
: 
5 
5 
= 

| 
Ss 
5 
> 
a 

| @ 
8 

| 

: 

| 

i 

| 


Cc 


TUT = 0+ b> +0  D 
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foro 
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CONTROL RESET TIMED QUT 

CONTROL RESET TIMED OUT 

CONTROL RESET TIMED OUT 

*A SINGULAR OCCURANCE AS ABOVE IS NOT A PROBLEM 
AND WILL NOT EFFECT COMPATABILITY 


ERROR EXAMPLE 5S 


IE RE SEP ee RAE Bag ComererT 


INDICATING THAT (S) FIVE H BRD OR SOFT 
ERRORS OCCURRED. THE TEST ILL CONTINUE 
RGRINST THE Mi HER DRIVES BUT THERE IS A 

NETBERED NON EXISTENT AS FAR AS” CORE 
PRRe DER D Noa s_PRLY NT AS FAR AS B MPATABILITY 
GOES. THAT IS TO SAY IT IS NOT TESTED, THEREFORE 
NOT NECESSARILY COMPATABLE OR INCOMPATASLE. 


RK11 UTILITY PACKAGE 

NAME TYPE 
INDEX 0 
COMPATIBILITY PACKAGE 


OSCILLATING SEEK PACKA 2 

RMATTER-SURFACE VERIFIER 3 
RKOS CONTROL PANEL 4 
RKOS CONTROL PANEL TEST #2 5 
HEAD ALIGNMENT ROUTI § 
POWER FAILURE (WRITE) TEST 7 


YPE=] 
ORTVE NUMBERS ON SYTEM 1=0. 


IS THERE A SECOND SYSTEM?N 
MOUNT PACK ON DRIVE #0 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

Bo ore OCCURRED DRIVE DECLARED DOWN!! NOT TESTED ! 


RK11 UTILITY PACKAGE 


NAME TYPE 
INDEX 0 
COMPATIBILITY PACKAGE 1 
*IN THE ABOV CARE THE MESSAGE “3 SEEK pie ade 
; mye, OCCUR fe IVE DECLARE egalt NOT TESTED!” 
cert Th mt THE SAME ERROR 2? DESCRIBED ABOY 
EXCEPT A : IS CAUSED 3 SEEK ERRORS OCCURRING 


ERROR EXAMPLE 6 


RK11 UTILITY PACKAGE 









02 
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934 NAME TYPE 


$35 Cc 
ae CORPRTABTLITY Br Beer ac l 
é 
338 FORMRTTERSURERCE VERFTER © 8 
939 S CONTROL P EST 4 
$59 RKO CONTROL PAL - T ROUTINE 5S 
S41 HEAD ALIGNME UTIN 6 
942 POWER FATLURS. ARTE) TEST 7 


TYPE=1 
S45 DRIVE NUMBERS ON SYSTEM 1=0. 


so$ 

347 IS THERE A SECOND SYSTEM?Y 

sg ORIVE # =1 

gee MOUNT Pack ON DRIVE #0 

$s0 MAKE PACK WRITE ENABLE 

951 PRESS CONTINUE WHEN DRIVE RDY 

352 LOAD AND START ADDRESS 210 ON ayatth #2 
953 AND TYPE THE BELOW WHEN ASKED FOR IT. 
sss WORD 1=101000 

$ss WORD=000177 


9c5 

957 NOUNT PACK ON DRIVE. #0 

559 MAKE PACK WRITE ENABLE 

365 PRESS CONTINUE WHEN DRIVE RDY 

360 ERROR! DATA WRITTEN BY DRIVE 1 CANNOT BE READ. 
DR=002764 0=07740 G00 


| x 
$79 . AODR=007633 EXPCTD=077400 RECVD=177000 
72 "  -RKIL UTILITY PACKAGE . 

g73 NAME TYPE 


975 INDEX 
976 COMPATABILITY PACKAGE 


977 OSCILLATING SEEK PACKAG 


NOUNLCUIlM~-O 


ROU 
POWER FAILURE URITE) TEST 


ww 
co 
a 


YPE= 
38S THE ABOVE ERROR MESSAGE SHOWS A ye any 
See PROBLEM. ALL ERRORS OCCURRED ON HEAD ONE OF 
987 Reve © O TRYING TO READ INFORMATION WRITTEN BY 





MAINDEC=11-DZRKI-C 
\. 


O& 
09 


Oo 
= 


SIMUL WMUe-Ow 
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ERROR EXAMPLE 7 


MOUNT PACK ON eye #0 

MAKKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE R 

ware _DATA raps A, BY adh ¥ CANNOT BE REQD. 


Suey Cs Bees 
te =e EXPC Tbe ae RECVD=037600 
BD DR=0 EXPCTD=07 00 RECVD=037600 


ADDR=002 EXPCTD=077 RECVD=1 
Ronee OCCURRED DRIVE DECLARED DOWN!! NOT TESTED! 


IN THE ABOVE EXAMPLE THE PROBLEM IS EXTREME. 
THE DRIVE “ | te DOWN DO CHECKSUM 


R ). NOTICE AL ROBLEM DID NOT 
STHRT APPEARING UNTIL BVT TROER PEN WAS NOT 
FATAL UNTIL CYLINDER 57, AGAIN feeb #1 WAS A 
COMMON FACTOR. 

RKERFKEKERRE 


COMPATIBILITY ERROR RECOVERY 


a A UTILITY PACKAGE IS NOT A_ TRUE DIAGNOSTIC 
i IS OF BENEFIT TO THE USER TO AT TIMES, BE ABLE 

TO MODIFY THE PROGRAM TO RECIEVE MORE INFORMATION OR 
CONTROL PARAMETERS 


1. THERE ARE TWO STRATEGICALY PLACED NO-OPS 
WHICH IF CHANGED TO HALTS, MAY BE, OE HEL LP TO 
THE USER. Ne Is IN EXECUT E ROUTINE WHICH 
ALLOWS THE USER 0 A ANENE THE DISK ADOR 
BUS ADDRESS. WORD COUNT AND CONTROL REGISTERS IN 
TEMPORARY PoCAT IONS JUST PRIOR TO LOADING 
EXECUTION. THE SECOND IS IN THE "ERRCHK’ ROUTINE 
WHICH ALLOW THE USER TO EXAMINE THE RKER REGISTER 
BEFORE THE PROGRAM CORRECTS ANY ERRORS WHICH 
WHICH MAY HAVE OCCURRED. 


@. IF PLAGED BY CHECKSUM ERRORS AND THE USER WISHES 
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MORE ERROR MAPING THEN HE MAY MODIFY THE 
meek BOR Ae! LOCATION 'ERRCHK+2’ TO ONLY RECOGNIZE 





3. TO INCREASE OR DECREASE THE NUMBER OF RETRYS ALLOWED 
BEFORE A DRIVE IS DECLARED DOWN, GO 
*MOUNT’ ROUTINE, MODIFY THE SETCe OF LOCATIONS 
"ECNT’ AND 'CNTSIN’ AND YOU HAVE I 


4. IF THE USER DECIDES, SAY ag OF _A 
LARGE NUMBER OF FAILURES, TO ALTER THE NUMBE 


ERROR EXAMPLE 6 AND 7) HE MAY MODIFY THE SETUP 
OF Se ssamaamo il IN THE + ROCHK ROUTINE. 









A FINAL LOOK; THE FOLLOWING SECTION SHOWS ALL PACKAGES 
CALLED IN SEQUENCE. NONE WITH ERRORS. 
RK11 UTILITY PACKAGE 








1057 NAME * TYPE 
O6 0 


INDEX 

COMPATABILITY PACKAGE 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RKOS CONTROL PANEL TEST 4 

RKOS CONTROL WoT #2 > 
7 








HEAD ALIGNMENT ROUTI 
POWER FAILURE (WRITE) TEST 


TYPE=0 
RK11 UTILITY PACKAGE 
NAME - TYPE 
INDEX 
ot ae PACKAGE 


OSCILLATING SEEK PACKAGE ’ 
tn gid VERIFIER 











T ROUTIN 
POWER FAILURE (WRITE) TEST 








YPE=! 
ORIVE NUMBERS ON SYSTEM 1=0,1,3. 
IS THERE A SECOND SYSTEM?N 
DRIVE #0 


VE # 
MAKE PACK WRITE ENABLE 
PRESS CONTINUE WHEN DRIVE RDY 
a PACK ON DRIVE #1 
MAKE PACK WRITE ENABLE 
PRESS CONTINUE WHEN DRIVE RDY 
MOUNT PACK ON DRIVE 4&3 
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o-- 
o ro 
w 


FSFE SSRV VY 


Ob hb he 2 0s se ee bs he 0 bs 0 bo 8 bo he 2 hs be hh 2 ho bo 0 bs 2 8 8 0 be ho bo bw ho ho be hn = ho 2 2 ho ho 
FEEL 


+ b+ b= b-+ bb 0 0 0 0 8 0 0 bo 8 bo 0 8 8 8° bb 02 2 0 bs 2 be b-2 b= B20 b 2 & 2 <b 9-0 hp 9-2 9 he pe 


WUT UU 


MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY Ns 
MOUNT PACK ON DRIVE #0 
MAKE PACK WRITE te 
PRESS CONTINUE WHEN 
MOUNT PACK ON DRIVE & 
Ake PACK_WRITE aoe 

PRESS CONTINUE WHEN DRIVE RDY 
MOUNT PACK ON DRIVE #3 

MAKE PACK WRITE ENABLE 

Dorie? CONTINUE WHEN DRIVE RDY 


RIVE ROY 


RK11 UTILITY PACKAGE — 


TYPE 

INDEX 0 
COMPATABILITY PACKAGE 

OSCILLATING SEEK 2 
FORMATTER-SURFACE VERIFIER 3 
RKOS CONTROL PAN 4 
RKOS CONTROL PANEL TEST #2 & 
HEAD ALIGNMENT ROUTINE 6 
POWER FAILURE (WRITE) TEST 7 


TYPE=2 
OSCILLATING SEEK PACKAGE, WHICH DRIVE?0 
OGGLE THE "FIRST CYLINDER ADDRESS" (OUTER LIMIT) 
LOW BYTE F THE SWITCH REGISTER AND THE “LAST 
R ADDRESS” (INNER LIMIT) pie THE HIGH 


RK11 UTILITY PACKAGE 


TYPE 

INDEX 0 
COMPATABILITY PACKAGE 
OSCILLATING SEEK PACK 2 

MATTER-SURFACE VERIFIER 3 
RKOS CONTROL PANE 4 
RKOS CONTROL PANEL TEST #2 5 
HEAD ALIGNMENT ROUTINE 6 
POWER FAILURE (WRITE) TEST 7 


TYPE=3 = 
FORMATTER-SURFACE VERIFIER, WHICH DRIVE?0 
PACK GOOD. 

RK11 UTILITY PACKAGE 


TYPE 
INDEX Q 
COMPATABILITY PACKAGE 1 
OSCILLATING SEEK PACKAGE 2 
FORMATTER-SURFACE VERIFIER 3 





02 
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RKOS CONTROL PANEL TEST 
RKOS CONTROL PANEL Wey #2 


PEASALIRME COUTURE ee 


TYPE=4 

RKOS CONTROL PANEL TEST, WHICH DRIVE?0 
MOUNT PACK ON DRIVE #0 

PLACE DRIVE IN RUN ;SHOULD SEE THE RUN, 
POWER, AND ON CYLINDER LAMPS LIGHT. 
MAKE DRIVE WRITE ENABLE PRESS CONTINUE 


WRITE PROTECT THE DRIVE THEN PRESS CONTINUE 
CLEAR WRITE PROTECT THEN PRESS CONTINUE 


CAUTION! TRY TO OPEN THE DOOR, DO NOT FORCE: 
DOOR SHOULD NOT OPEN! 
PRESS CONTINUE WHEN FINISHED 


PUT DRIVE IN LOAD, WAIT FOR LOAD LIGHT 
PRESS CONTINUE WHEN FINISHED 


OPEN THE DOOR, PUT DRIVE IN RUN 
CAUTION! IF RUN LIGHT ON ERROR! DEPRESS 
LOAD IMMEDIATELY, CONTINUE WHEN FINISHED 


REMOVE THE PACK, CLOSE THE DOOR 
PUT DRIVE IN RUN, DRIVE SHOULD NOT 
RUN. ; . INTERLOCKS HAVE BEEN CHECKED 


p-2 b= = § -< p> 


0 0 b= bb 0+ 0 bs Bs 2 bs 8 be bn bb 2 bs he pn bo hme Be fo ho 2 82 Fo 2 bs fo Bo b+ bo bo fe Bo pe 
SNOOP KOO Oo 
-O00 IMU 


RK11 UTILITY PACKAGE 
ENABLE ABS, AMA 

.TITLE MAINDEC-11-bZRKI-C 

:“COPYRIGHT (C) 1974 


;*DIGITAL EQUIPMENT CORP. 
;*MAYNARD, MASS. 01754 


;* 
5 MPROGRAN BY BOB COLLINS 
;¥THIS PROGRAM WAS ASSEMBLED USING THE POP-11 MAINDEC SYSHAC 


ODO ODOWOOOODWOOMMOMMMWMO~)~I-I 
fOr SuptD MU ULE Corot Leo SOPOT Corot Coos WOrUTe cone 


ww 


g EPACKAGE (MAINDEC-11-DZQAC-Ce), SEPT 14, 1976 


fet = 


1 
1 
1 
1 
1 
1 
1 
1 

ie 
1 
1 
t 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


900001 $TN=1 
160900 $SWR=160000 ::HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 


;#REVISED BY JIM KAPADIA 
:¥REVISED BY TOM SAWYER FEB 27, 1976 
.SBTTL TRAP CATCHER 


000000 20 
;#ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".+2,HALT” 





MAINDEC-11-DZRKI-C 
TRAP CATCHER 
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000174 
000176 


000200 


0002i8 
000216 


rata 


000137 


900210 
112737 
000137 


001100 


000011 
000912 
000015 
000200 
177776 


MACY11 27(732) 


001434 


000377 001312 
001440 
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;¥SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
neater” Q ¥ caeettmotes 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: “HORO 0 ;;SOFTWARE DISPLAY REGISTER 


SWREG: _.WORD O ;; SOFTWARE SWITCH REGISTER 
-SBTTL STARTING ADDRESS(ES) 
JMP deSTARTR ;;JUMP TO STARTING ADDRESS OF PROGRAM 


.=210 
MOVB #377 , dHMODE 
JMP # 
.SBTTL BASIC DEFINITIONS 
LEINT TIA, AQORESS OF THE STACK POINTER *¥* 1100 *#% 


-EQUIV EMT,ERROR ; ;BASIC DEFINITION OF ERROR CALL 
eEQUIV IOT, SCOPE ;;BASIC DEFINITION OF SCOPE CALL 


- #MISCELLANEOUS DEFINITIONS - 
AT= T= ll ;;CODE FOR HORIZONTAL TAB 
-CODE FOR LINE FEED 
£600 FOR CARRIAGE RETU 
::CODE FOR CARRIAGE BET URN-L INE FEED 
:PROCESSOR STATUS WORD 


;;STACK LIMIT REGISTER 

ee INTERRUPT REQUEST REGISTER 
7 HARDWARE SWITCH REGISTER 
177570 : HARDWARE DISPLAY REGISTER 


ie REGISTER oot Sa 


§ 


pre COUNTER 


peeront ty LEVEL DEFINITIONS 


SEREREE: 


IORI 
IORI 
IORITY 
IORI 
IORI 
IORI 
IORITY 


LEVEL 6 
fete LEVEL 7 
;#"SWITCH REGISTER” SWITCH DEFINITIONS ° 
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DZRKIC. SRC BASIC DEFSNITIONS 


1270 100900 SW1S= 100000 - 
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000002 
1285 000031 SWOO= 
1286 ‘ 


1296 
1297 -*DATA BIT DEFINITIONS (BITOO TO BIT1S) 
1298 100000 8IT1S= 100000 

1299 040060 BITl4= 40000 

1300 9200 BITI3= 20000 

1301 010000 BITl2= 10000 

1302 904900 BIT11= 4000 

1303 9020 BITiO= 2000 

1304 001000 BITO9= 1900 

1395 000400 BITO8= 400 

1306 900200 BITO7= 200 

130 900100 BITOb= 100 

1308 900040 BITOS= 40 

1309 900520 BITOY= 20 

1316 p00010 BITO3= 10 

1311 900004 BITO2= 4 

1312 900002 BITOl= 2 

1313 009001 BITOO= 1 

1314 -EQUIV BITO9,BIT9 
1315 -EQUIV BITO8,B81T8 
1316 -EQUIV BITO7,BIT7 
1317 “EQUIV BITOb,BITS 
1318 -EQUIV BITOS,BITS 
1319 “EQUIV BITO4;BITY 
1320 “EQUIV BITO3,B1T3 
1321 -EQUIV BITO2,BIT2 
1322 -EQUIV BITO1,BIT1 
1363 “EQUIV BITOO,BITO 
3 


1325 ;*BASIC “CPU” TRAP VECTOR ADDRESSES 












* nr a 
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OZRKIC.SRC BASIC DEFINITIONS 
1326 000904 ERRVEC= 4 ;;TIME OUT AND OTHER ERRORS 
1327 000010 RESVEC= 10 3 ;RESERVED AND ILLEGAL INSTRUCTIONS . 
1328 000014 TBITVEC=14 ii ae 
1329 000014 TRIVEC= 14 7 TRAP 
1330 000014 BPTVEC= 14 ; | BREAKPOINT TRAP (BPT) 
1331 000020 IOTVEC= 20 33 INPUTZ QUTPUT TRAP (IOT) *#*SCOPEX# 
13 000024 PWRVEC= 24 ; POWE 
1333 000030 EMTVEC= 30 ; ;EMULATOR TRAP (EMT) **ERROR** 
1334 000034 TRAPVEC=34 “TRAP” TRA 
1335 000960 TKVEC= 60 siTTY pM al VECTOR 


1336 000064 TPVEC= 64 3; TTY PRINTER VECTOR 
1337 900240 PIRGVEC=240 ;;PROGRAM INTERRUPT REQUEST VECTOR 


MAINDEC-11-DZRKI-C 


DZRKIC.SRC 


-_ 
w 
<£ 
w 
QONDON000000 
etalatefatstatatatatatst 


— 
uw 
ul 

SEBeeo 


0 
001162 


COMMON TA 


001100 


000000 
000 


0 
0000ie 


A 27(732) 


23-SEP-76 10:03 PAGE 28 


-SBTTL COMMON 


§ RRHALRALR ALAA LEAL RK ERA L EEK REE EEL ERE ERE SRE LE RE REE ERLE ERELELELESR 


ATs TABLE. CONTR NS VARIOUS COMMON STORAGE LOCATIONS 
#USED IN 


ROGRAM. 
21100 . 
SCMTAG: 
$PasS: .WORD OQ 
STSTNM: .BYTE O 
SERFLG: .BYTE OQ 
SICNT: .WORD OQ 
$LPADR: .WORD 0 
SLPERR: .WORD O 
SERTTL: .WORD OQ 
SITEMB: .BYTE OQ 
SERMAX: .BYTE 1 
SeARES . WOR 0 
GDADR: .WOR 0 
SBDADR: .WORD O 
$GDDAT: .WORD OQ 
$BDDAT: .WORD OQ 
-WORD Q 
-WORD O 
SAUTOB: .BYTE OG 
SINTAG: .BYTE 0 
-WORD O 
WR: .WORD OSWR 
DISPLAY: .WORD DDISP 
TKS: 177560 
S$TKB: 177562 
$TPS: 177564 
TPB: 177566 
S$NULL: .BYTE O 
SFILLS: .BYTE 2 
SFILLC: .BYTE le 
STPFLG: .BYTE QO 
SQUES: .ASCII /?/ 
SCRLF ASCII <15> 
SLF: ASCIZ <le 





TAGS 





02. 





3300 X. ERRORS PER TEST 

;;CONTAINS PC OF + ERROR, INSTRUCTION 
5 F *GO0D’ DAT 

5 RON TATE § 

;;CONTAINS ’ GOO 

;;CONTAINS *BAD’ ‘DAT 

; ;RESERVED--NOT TO BE USED 


;;AUTOMATIC MODE INDICATOR 
;; INTERRUPT MODE INDICATOR 


;CON 
i HINSERT FILL CHARS. AFTE 
33 TERMINAL AVAILABLE" FLAG (81T<07>=0=YES) 
;QUESTION MARK 
: CARRIAGE RETURN 
;LINE 


POET ET LESTE PERT STE T TT ET ET TET eT TT TET PET Tere T er er eer eter TTT eT eT 


sie solcesseidk nected a aeaeee io dealings aceentintacianancalthasmaidin’ 


waz NDEC=LL-DIRKI=S Mac 
SRS ERROR POINT 


Oz! it. 


GIGIGIGIOS 
mus 
£631 


0g 


br | 


Oww- Wm 


= 0~* 0 0-0-2 0 + 29-0 0 po p+ fo ho 


AGIGIGIGIGIOIG, 
Pt a ter 4 yb (p 


Om £Moo 


(Ue-+0~+ 9-9-0) 


ees a er er 
furororonorur 


rrr 


ti 


SNOCw MOwo 


i 


LU = tofus-to so - 


~~ 


rats 


ni 


t 
© 
. 


wurorurr frou 


i) 
C 
nm 
“ 
a 


© 

- 
= 
he 
? 


VUIUTOTUTUTOTU LULU TOs 6 © 0-0 0-8 


L000 NOP On Gore C000 SOP U1 Gate 


- . 

4 + 

4 t 

e- 

Bese 

ooo Ct 
Ww GWWwwWww ff 
ue ON” 


. 

4 

fF 

( 
oO 
ow 


e+e 


000000 
000018 


OS 


oo oOaoaoo 
MO F-eOONO 
OOo Wwn7ito ve 


yi 
ER 7 
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LSBTTL ERROR POINTER TABLE 
:STHIS, TRGLE CONTAINS THE INFORMATION FOR EACH ERROR. THAT CAN OCCUR. 


:#THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
: LOCATION SITEMB8. THIS NUMBER INDICA TES WH WHICH ITEM IN THE ee IS PERTINENT. 
:#NOTEL: IF SITEMB IS CO THE ONLY PERTINENT DATA IS (SERRPC) 
;*#NOTEE: EACH ITEM IN THE FaBLe CONTAINS 4 POINTERS Seer AiNeD SS FOLLOWS: 
70 EM ;;POINTS 19 THE ERROR MESSAGE 
% DH s:POINTS T Q THe DATA HEADER 
7% OT s;POINTS TO THE DATA 
;* DF *:POINTS TO THE BATA FORMAT 
SERRTE: 
DRACTV: .WORD 9 sACTIVE ORIVE WORD 
LOGA: -BLKW 19 sTABLE OF ACTIVE DRIVE WORDS 
ORVO: WORD 152525 ;TABLE OF PATTERN = TO DRIVE 8°S 
"WORD «OOP SPP 
WORD 900000 


BTL: BLK 10 ;TABLE OF READ ADDRESS 
PASTEL: :BLKW ;TABLE OF PARAMETERS FOR SYSTEM s2 
MSKTBL: .BYTE 377 ;TABLE OF CYLINDER BASE FOR AUTO MODE 

evi if? 

‘BYTE 077 

“BYTE 93; 

‘BYTE = 017 

‘BYTE 007 

‘BYTE 002 

‘BYTE © O01 
BASE: .BYTE 2 ;CYL OQ BASE CYLINDER ADDRESS 

‘BYTE 50 SVL 40 BASE CYLINDER ADDRESS 

‘BYTE = 130 :CYL 80 3ASE CYLINOER ADDRESS 

‘BYTE = 170 EYL 120 BASE CYLINOER ACORESS 

BYTE 240 GL 169 BASE CYLINDER ADDRESS 

BYTE 303 :CYL 195 BASE CYLINDER ACDRESS 
CYLTBL: .BLKB 11 ;TABLE OF SELECTED SASES 
SECTEL: .BYTE 0 SSECTOR 0 

‘BYTE 4 sSECTOR 9 

‘BYTE 7 SSECTOR 7 

‘BYTE 13 :SECTOR 12 es 
ORCNTI: .BYTE 0 ;COUNT OF NUMBER OF DRIVES ON SYS. 1 
MODE: ‘BYTE 0 fP Stan? S10 SELECTED 








MAINOEC=11-DIRKT- 


DIRKTC. SRC 
tse Sorat 
09} 
13 Boiss 
1438 Oi315 
1438 901317 
1446 801330 
i44] 561321 
1443 001323 
i443 951323 
1444 951324 
1445 901325 
1446 001326 
L447 
1448 
i448 
1458 001330 


1482 001424 
3483 00142 
1 001430 
14285 001422 
Tse6 

1487 

1486 


CY11_ e7 (732) 
ERROR egtNtes TABLE 
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PRONUM: .BYTE se . 1 saten te SELECTED 

DRIVE: YT Bes is 1 TEST p Man sro MODE 
VYLBRS YT rh § D bs NUAL MOD 

COMND BYTE TIF 


‘ORIVE atTOH” BID AURITE (READ OPERATION) 
sFLA Sal Xruatt ONE HEADER PRINTC!UT 


CURRENT INDEX 8 


=< 
-4 
m 
OoVdooVDO0OVo0000 
mr 
2» 
2D 
2a 


; TEMP. KEYBOARD BUFFER 
;TEMP. CONTROL+STATUS WORD 
; . DISK ADDRESS WORD 

; TEMP. cor ADDRESS WORD 


© 
up 
~~ 
PD 
© 
za 
= 
2 
2D 
Oo 
= | as | on | oe | oe ] 
~ 
m 
= 
oO 


:TEMP: WORD COUNT 
CYLCNT: :WORD  -8000 :HORG “COUNT OF 1 CYLINDER 
SECCNT: :WORD  -400 SHORD SOUNT_OF 1 SeCTO 
ORD : TIMER FOR 


; OPERATION ar 
;NUMBSER OF alte PRINTOUTS 
fe CURRENT DISK 8 


WRITCS: .WORD 003 ; BA+WRITE+G0 

REACCS: .WORD +G0 

ERRFLG: .WORD ERROR FLAG JMaert ACORESS CHANGE 
PATTRN: .WORD ;DATA PATTERN 


2 
OOO ee - OOM LOOO 


KDS: 77400 

ER: 77402 
RKCS:  .WORD 77404 
RKWC: . WORD 77408 
RKBA:  .WORD 77410 

DA: . WORD 77412 
SENDAD: . WORD 

KI: .WORD 

SEEKC: .WORD 

FLF= 105212 
SA: BUFE 
DA WORD 0 
Wes WO 0 
RBA: RBUFF 

We: . WOR 0 
EXTR:  .WORD OQ 
ERRWE: .WORD 0 
ERRRF: .WORD OQ 
ERRRFC: .WORD 0 
ERRWCH: .WORD OQ 
ERRWCS: .WORD 0 


;BIT DEFINITIONS 


OPL=B81Tle 
RWS=E1TE 


MAINDEC=12-O2RKT<¢ 
DZRKTC. SRE 


Mitatatat 

Hit a tet ete pied SeaAe 
Matha] 
gare tage 


at 


Coed Seok Sed Sed eed eed Sed Sed eed eed Sed Sed Sed ed 
CT et ed ed ed ed ed et 


wu in 
new ae 


i | 


p= 
HN 4 de be A hah hp he hp he oh ae dip 


uy 








ERROR POINTER 


000049 
001000 


105037 


Ol 
O1 
Ol 
Ql 
G2 
00 
Oc 
0} 
00 
0} 
QO} 
Oi 
10 
10 
00 
19 
00 
1 


© 
oO 


£737 


04401 
00423 


104401 
009421 


O013le 


~ 901100 


001140 
001100 


001312 


003412 
001325 


002476 
901325 
001326 
177777 


O0iS4é 


002004 
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WPS=BITS 

SIN=8ITS 

aT RRTR: CLRB a eMODE 

~SBTTL INITIALIZE 3 COMMON TAGS 





;;CLEAR THE COMMON TAGS (SCMTAG) AREA 
MOV BaF TAG, Re $3 ae 1 beCALTON 8 an CLEARED 
CLR (R6)+ CLEAR MEMORY LOCAT 
CMP WSUR, R6 ;;DONE” 
BNE ;LOOP_BACK IF NO 
aS ACK, SP :;SETUP THE Sack POINTER 


MOV 
s INITIALIZE A FEW VECTORS 
MOV BSTRAP QRTRAPVEC ; i TRAP VECTOR FOR TRAP CALLS 
MOV #340 SATRAPVEC? 
MOV aSFARON a4Pl AVEC’: * BOWER FAILURE VECTOR 
MOV WRVEC+2 ;: LEVEL 7 
35175 FOR a neaguat SulTCH REGISTER. IF NOT FOUND OR IT IS 
::EQUAL TO A” ‘ ETUP FOR A SOF RE SHITCH REGISTER. 


MOV ahem vee -(SP SAVE 
MOV ase ERRVE ::SET UP ERROR VECTOR 
MOV sc Sa? ::SETUP FOR A HARDWARE SWICH REGISTER 
MOV tcbise, DISPLAY :7AND A HARDWARE DISPLAY REGISTER 
CMP aSWR >: TRY TO REFERENCE HARDWARE Sik 
BNE beg’ : BRANCH IF NO TIMEOUT TRAP SeCURRED 
:AND THE HARDWARE SWR IS NOT 
BR &5$ BRANCH IF AND TIMEOUT 
64S: Moy #65$, (SP) ::SET UP FOR TRAP RETURN 
65$: MOV #SWREG, SUR yi sPOINT TO SOFTWARE SWR 


MOV sDISPREG DISPLAY 
S65: MOV (SP)+,d8cRRVEC ;;RESTORE ERROR VECTOR 


TSTB JeMODE 


BPL 1$ 
JMP geSE COND 
1$: TST STFLG - ;PRINT ONLY THE FIRST TIME 
BEG 10$ 
IMP ta 
INC 


108: 
STRT1: CLR8 Rep a ,; 

SBTTL TYPE PROGRAM NAME 

:; TYPE . NAME OF THE PROGRAM IF Pinel a 


8-1 s;EIRST TIME? 
BNE bug !:BRANCH IF NO 
TYPE S$ $3 TYPE ASC IZ STRING 
BR 4§ “GET OVER THE ASCIZ 
igs: "ASCIZ <CRLF><15><12> MAENDEC-1]-DZRKI-C RKLL UTILITY PACKAGE / cORLF? 
TYPE 69$ ::TYPE ASCIZ STRING 
BR ::GET OV eR THE ASCIZ 
jib%s: SASCIZ -<15><12><159<12>7 NAME TYPE / 
TYPE 71$ TYPE ASCIZ STRING 
4 ::GET OVER THE ASCIZ 


BR O$ 
33718: .ASCIZ <15><12>/INDEX 0 
















Py 


154? 902046 
1548 002046 
1333 002052 


122] 002116 
$52 O021i6 
002122 









1555 002166 
155 02156 
1SS? O0elre 
1559 002236 

002236 
i561 O0ee4e 
1563 092306 


002306 
1565 O0e3ie 











002355 
i568 002356 
002362 






3 
a) 
i 02426 
e 
3 





















= 

ui 

0 

@ 

oO ©o 

8 5 
wn 

uy 

Oo 


002572 
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RKIC. SRC 


104401 
0004e1 


104401 
008421 


104401 
000421 


1044O1 
009405 





o0ecS4 


002124 


002174 


002244 


002314 


002364 


CO2434 


002504 


O000E0 
000010 


O0eSte 
002556 
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708: 
re 
mio ASCIZ 
TYPE 
5R 
aces: ASCIZ 
" ‘TYPE 
7$ PRScrz 
°77 $ ° 
dig: 
TYPE 
23798: .ASCIZ 
8s: 
TYPE 
o1$ Asc Zz 
2S : ° wad 
bd$: 
Tyre 
-:83$: .ASCIZ 
bbs: : 
TYPE 
-:85$: .ASCIZ 
S$: 
TRELTY: 
Le 
::65$: .ASCIZ 
4$: 
ROCHR 
MOV 
TYPOS 
-BYTE 
.BYT 
SUB 
BMI 
CMP 
JMP 
NG: 
TYPE 
6S$ eRSC1Z 
bas: ° 








$3 TYPE ASCIZ STRING. 
4, epee it vee Kate 


75$ $s TYPE ASCIZ STRING 
Sug “GET OVER THE ASCIZ 
(15> «12> “OSCILLATING SEEK PACKAGE 


4773 33 TYPE fig? STRING 
6S HE ASCIZ 
(Pe) «12> /FoRNATTERS EIREREE VERIFIER 
795 $s TYPE Q cIz STRING 
283 OVER THE ASCIZ 
¢15><12> /RKOS cohteae PANEL TEST 

815 ss TYPE ASCIZ STRING 
80$ OVER THE ASCIZ 
(15><12>/RKOS CONFROL PANEL TEST #2 
93% ss TYRE ASCIZ STRING 


OVER THE ASCIZ 
(15>< 12> /HEAD actistent ROUTINE 


sss 7 TYPE monies STRING 


848 R THE ASCIZ 
(15)< 12) /POWER FAILURE. CRRITED TEST 


65S s; TYPE ASCIZ STRING 
4$ ;;GET OVER THE ASCIZ 
615><12°.15><12>/tYPe= 
(SP) ,RO 
l 
0 
#60,R0 
NG 
#10,RO 
NG 
RO 
QPEGIN(RO) 
65S :;TYPE ASCIZ STRING 
643 GET OVER THE ASCIZ 


TABLTY 


l/ 


2/ 


RVs 


4/ 


Sy 


6/ 
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DIRKIC. SRC TYPE PROGRAM NAME 


017122 
4 


.SBTTL COMPATIBILITY TEST 


;ROUTINE TO rw UP THE DRIVE NUMBER TO BE TESTED 
:ON SYSTEM 1 


000240 SECT.3: sNO-0P 
AUTSLe: 
104401 o02612 T 6S 5s TYPE ASCIZ STRING 
000415 43 ;GET OVER THE ASCIZ 
C15) <12>/TERMINATE WITH *.<CRD*/ 


104401 4 67S 5s TYPE ASCIZ STRING 


000417 BR 663 “GET OVER THE SCZ 
--67$: ¢15><12>/DRIVE NUMBERS ON SYSTEM = 


BBO Ie 


Pease Al OAL eal sal talialsalealoals ale ate als als 
b= b+ 6 = b= bb bo po 
WO IW U1 LIMO. 


+ <b -- b= » = b <b §-< & + b+ > = 9 6-2 2 9 = 0 pe 


(SP)+,RO ;PICK_UP THE ADDRESS OF THE INPUT BUFFER 
:GET THE ADDRESS Roe M3 LOGICAL UNIT TBL. 
:CLEAR ee wel NTER 


aakYTEMP 2C 
(ho) JSKYTEMP GET THE FIRST DRIVE # 
001330 , aK Y TEMP 18 Tes) Bee THAT was TYPED? 
001330 D . saane :MAKE ASCII A DRIVE # 
-IF RESULT NEGATIVE BRANCH 
PC, STORE IF R ITIVE JUMP 
‘AFTER S ORING GET NEXT 
#56,-(RO) "WAS NEGA TIVE RESULT A TERMINATOR? 
:IF YES BRANCH 
: PC, ILEGAL - :IF NO BAD CHARACTER JUMP 
HO1E0E : MP *DRVO. RI 18 THE TABL E FUL 
ms SECSY ;IF YES BRANCH 
100008 #100000,(R1)+ IF NO FILL TABLE WITH DOWN “INDICATOR. 
ae 3$ :GO BACK AND CHECK 


;ROUTINE TO DETERMINE IF THERE IS A SECOND 
SYSTEM AND IF SO TO GET THE NUMBER OF THE 
:DRIVE ON THIS SYSTEM 


SECSYS: 
104401 903016 Y sss 53 TYPE ascIZ STRING 
BR 4§ -GET OVER THE ASCIZ 
j i858: ‘ (15)<12)/IS THERE'A SECOND SYSTEN?/ 
; eRe 
“READ A CHARACTER 
001330 M (SP) QUcvTENP sGET THE RESPONSE 


001330 
000131 901320 bial, aeKYTEMP ‘Ties IT A “Y" (FOR YES)? 

BE PIF YES BRANCH TO PROCESSOR 2 
000116 001230 | IIE. DsKYTEMP WAS RESPONSE LEGAL (N FOR NO)? 


















C-11-D02ZRKI-C 
DZRKIC. “SRC 
1659 003104 001460 
1660 002106 104491 
1651 OO03ile 00040! 
1662 
1662 003116 





1664 003116 000734 
737 








1876 3174 022737 
677 C2 O03414 
1678 04 00933 







1685 003234 104401 
1686 003240 000401 







3244 
1689 003244 000725 
1690 003246 105037 


















1694 O03252 012700 
1695 903256 pats 


















1695 O03e6e 000 
1697 

698 003264 0627’ 
1699 003270 922700 
1700 903274 001414 
1701 003276 005710 
1702 003300 100 
1703 00 000770 
1704 003304 011037 
1705 903310 0047 
706 003314 004737 
1707 003320 004737 
1708 003324 00075 
1709 003326 012700 
1710 003332 0227 
1711 003336 141 















003114 


000377 
003136 


001330 
001330 
000065 
009010 
001330 
940000 
001311 


001330 


003242 


001313 


001265 
001324 


00002 


001206 


001164 


OO11E6 
001206 


040000 
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001313 


001230 
001330 


001330 


001156 


bbg:** 


PRO2: 


;;655: 
b4s: 
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BEQ 
TYPE 


BR 
-ASCIZ 


BADINP: - 


big?** 


PROL: 


BR 
CLRB 


PRO] 
67$ 
6$ 


42/ 

SECSYS 
#377 , J#PRONUM 
ess 


4$ 
(15><12)/DRIVE # =/ 


(SP + aaKY TEMP 
hEO, J#KYTEMP 


N 
#10, J#KYTEMP 
BAD! NP ap 


;1F LEGAL BRANCH 
i; TYPE ASCIZ STRING 


_ 53GET OVER THE ASCIZ 


;GO_BACK ASK AGAIN 
;SET FLAG TWO PROCESSORS 


TYPE ASCI 


5 gGET OVER 


fu 


STRING 
E ASCIZ 


;READ A CHARACTER 
sPICK UP THE RESPONSE. 


;ECH 
; MAKE IT A NUMBER 
T A NUMBER, BRANCH 


:IF_N 


NO 
TS a A LEGAL # 
RA 


4 


BRANCH 
;GET THE DRIVE # TO THE HIGH BYTE 


aek 
raat POHk TEN :SET THE SECOND “SYSTEN BIT 
GET THE DRIVE —. 


RCNT1, 


PRO2 
d#PRONUM 


;THIS IS THE ACTUAL PROGRAM 


GO: 


GO!: 


G0e: 


G03: 


EXIT: 
EXTFRe: 


#LOGA, RO 
as IDEX 


G 
(RO), a#DRACTY 
PC, 


CYCLE 
PC; WRLINK 
PC: RDLINK 
col 


#LOGA,RO 
#DRVO,RO 


E 

#BIT14, (RO) 
EXITX 

(RO)+ 


60 DO 


: MAK AN 
- @8KYTEMP, Die ;STORE THE SYSTEM #2 WORD 
GO THE TEST 


3; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


;GO_ BACK ASK AGAIN 
:CLEAR THE FLAG ONE PROCESSOR 


3GET ee ne ADDRESS TO RO 


;CLRB T 


;BRANCH AROUND INCREMENT ROUTINE 
; INDEX THRU THE TABLE 
: DONE? 


:IF YES 


GET OUT 
:1S THE pave ACTIVE 


IF YES BRANCH 
!NO TRY THE NEX7 ONE 

:PICK UP THE ACTIVE DRIVE WOR Dy 

:CALL CYCLE (PICK UP DRIVE #, CYL BASE, AND CALL MOUNT) 
sCALL WRITE LINK TO LOAD RECtS FERS FOR WRITE 

:CALL READ LINK TO LOAD REGISTERS FOR READ 

:GO GET NEXT DRIVE 
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poate She oo ciwparreit ity Test 


— 


100770 EXTFRe 
014001 


-(R0),R1 
004210 PC, 00 
005572 PC RDLINK 
(RO)+ 
EXTFR2 
EXITX: 


104401 003376 65$ 3 DPE ASCIZ STRING 
000404 BR 4$ ;;GET OVER THE ASCIZ 
iiges: . (15><12>/DONE!/ 

900137 001440 i deSTART ;RESTART 


;THIS IS PROCESSOR #2 CODE. THIS ROUTINE ASKS FOR AND UNPACKS THE CONTROL 
;WORDS FROM THE FIRST PROCESSOR. 


SECOND: 
003420 Y S$ TYPE ASCIZ STRING 
oR 4g “GET OVER THE ASCIZ 
pags: : eI» (12> /COMPATIBEL TTY SveTEN wes 
oog200 #200, R4 ;SET UP MASK BIT IN RY 
000001 #1,R3 :SET UP WORD COUNTER IN R3 
Bisons 001166 aie M #LOGA, Re :GET THE TABLE ADDRESS 
104401 oo3474 S$ +3 TYPE ASCIZ STRING 
090405 BR 4g T OVER THE ASCIZ 
“655: . (15> «12> WORD 


bag: 


TUTU TU» »— »— 
M~-Ovowo~I07u 


INI~$ININI~I~I 


~jgrd 
mM 
Ww 


;eEH 
R3,-(SP) ;GET READY TO TYPE WORD COUNTER 


. 0 
003524 :;TYPE ASCIZ STRING 
66 ::GET OVER THE ASCIZ 


(SP)+,RO ;PICK_UP THE OCTAL WORD 
RO,R1 GET THE FIRST DRIVE TO Rl 
RO GET THE SECOND DRIVE TO RO LOW BYTE 
177400 #177400,RO0 CLEAR THE UNUSED BITS 
177400 #177400; R1 ;CLEAR THE U ase BITS 
RO TF aR RIGHT R 
df CARRY IS CLEAR BRANCH 


es 
000200 #81T7,RO 


000200 


TABLE 
ALL THE MA aK CONTROL SUBROUTINE 
seh DRIVE SECOND IN TABLE (NEXT WORD) 
003770 R CALL THE MASK CONTROL SUSBR OUTINE 
R3 INCREMENT THE WORD COUNTER 





a ae -11-DZRKI-C 
DZRKIC. SRC 


003612 
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174000 


001206 
100000 


003700 


003622 
040000 
003614 
o0000e 


000010 


001330 
001330 


001206 





pa: fle RFLP NEAE JO (88, 
RY tbh ATE bf ‘e's a 
BCC EXITA :GO BACK IF NOT 
EXITB: BIC #174000, (Re) ICLEAR DOWN AND SECOND SYSTEM BITS AT TABLE 
MOV R2,RO ‘GET ADDRESS TO RO (CUR ENT TABLE) 
TST (RO)+ ‘ADD 2 TO THE POINTER 
FIL.ON: CMP sDRVO, Re TABLE FULL? 
EQ 2 ‘IF YES BRANCH 
MOV WBITIS,(R2)+  ;FILL THE TABLE 
BR FIL. DN G0 BACK TRY AGAIN 
23: MOV (RO). RI !GET THE WORD TO Ri 
MOVB RI,R 
JSR PC’ MASK 
JSR PC’ p02 - FORM DRIVE # FOR MOUNT 
JSR PC'WRLINK ‘WRITE N 
JSR PC’ RDL INK sREAD SAHPLE (ALL DRIVES) 
TYPE 65S TYPE ASCIZ STRING 
BR 4g *GET OVER THE ASCIZ 
gages: casciz C18) uz>/oone svBteh 2 RESTANT SYSTEM 1, TYPE WORD / 
MOV (RO),-(SP) GET WORD FOR SYSTEM 1 AND TYPE 
TYPOS 
.BYTE 6 
"BYTE 1 
13: HALT sHALT (FINISHED SYSTEM #2) 
BR 1$ GO BACK TO HALT 


; THIS ROUTINE SETS UP _THE MASK BITS IN THE LOG TABLE FOR 


:SYSTEM #2, IF A DRIVE IS DOWN NO BIT IS SET BUT THE MASK 
IS SHIFT FIED. 
MASKER: TST (R2) 1S THE DRIVE uP 
BMI RETRNY IF N ANCH 
 MOVB RY, (R2) : MOVE OME MASK BIT IN THE TABLE 
RETRNY: ROR RY "ROTATE THE MASK 
BCC 1$ :DONE?, IF NO, BRANCH 
NOY #EXITB, (SP) :SET UP FOR RETURN 
1S: BIT #BIT14, (R2) :IS THIS SYSTEM # 2°S DRIVE? 
BEQ 2 ;1F N NO 
NOV NEXITA, (SP) -SET UP OR RETURN 
2$:- add #2,Re gate THRU LOGA TABLE 
, RTS PC : RETURN 


;ROUTINE TO BUILD THE ACTIVE LOGICAL UNIT TABLE 
001330 STORE: ca #10, d8KYTEMP 13 INPUT A LEGAL NUMBER? 


BLE Pres IF NOT BRANCH 

SWAB deKYTEMP ALIGN DRIVE # FOR TABLE 
MOV DUKYTENP, (R1)+ ‘PUT a WORD IN THE TABLE 
CLR aeKYTEMP CLEAR THE TEMP WOR 

INCB d#DRCNT1 ; INCREMENT THE COUNTER 

CMP #DRVO,R1 31S THE TABLE FULL? 









DZRKIC 
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“SRC 


004132 


004300 
004304 
004336 
004336 
004342 


000407 


000207 


011001, 


000414 


013746 
104403 






003010 
002604 


004114 


040009 
006712 


005174 
001166 


001206 


000370 
001314 


001353 
001335 
004256 


001324 
o0000s 


000003 
004306 


001314 
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001401 
000207 


WwW 
RS 





TBLFUL: 
ILEGAL: 


iige® 


CYCLE: 


CYCLé: 


CYCLEe: 


LDFLG: 
es: 


33: 
4$: 


D02: 


MOUNT: 


big: 


RTS 


;THIS ROUTINE GETS A DRIVE # AND BUILDS A TABLE OF 
sCYLINDER A ADDRESS FOR USE By WRITE 
:0F THE TABLE ag OPERATIONS” TROICATE 
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TBLFUL 


ECSYS, (SP) 
#AUTSL2, (SP) 
65$ 


4$ 
/TLLEGAL INPUT/ 


PC 


OGICAL 


#61715, 
CL2 


CY 
d#SECONE 
ad#IDEX 


R3 
RSKTELIRS), Re 


PC. MA 
aL OGA, 83 
RO,R2’ 

Gee (R3)+ 


Re (R3)+ 
HDRVO, R3 


fi 


AS. aeDSKTMP+1 
Re, ge nnOned 


J#IDEX 


#5, J#ECNT 
#3; JUCNTSIN 


66S 


4 VE 
¢15>< 12> “MOUNT ehig ON DRIVE #/ 
DRIVE, -(SP) 


#370, Re 
Re, SRORIVE 













it YES BRANCH 
HE (eee PULL SET UP FOR SYSTEM #2 
ILLEGAL _RESPONSE, GO BACK 


F 
; TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 






i, 
is 
3 
3 





; RETURN 





(ROJSADDRESS OF ACTIVE 
IT ALSO SETS AND CLEARS THE MASK BITS 







;GET_ THE LOGICAL UNIT ACTIVE WORD TO Ri 
1S IT ON SYSTEM #e 

;IF NO BRANCH 

:GO_TO SYSTEM #2 

:GET THE pia VALUE 

GET THE MASK TO Re 

;CALL_THE MASK pueren" Ine 

GET TABLE ADDRESS TO R3 

its YS ADDRESS=TO FIRST ADDRESS 
sIF YES SET BITS 1 SHOW WRITE 
;BRANCH TO SEE IF 

CL LEAR BITS TO SHOW OVER-WRITE 


N 
TF NO_GO BACK 
sGET DRIVE # TO LOW BYTE 

















;GET IT Re 
: CLEAR THe + ar SITS 
GET T RIV 

;SHIFT THE ORI ves TO 

ALIGN IT FOR THE “DRIVE ADDR. 
;KEEP_IT MOVING! 

A LITTLE MORE! 

THERE IT IS 


;GET IT ye DISK ADDR. TEMP. 
:CALL MOUNT 
; RETURN 




















g INCREMENT THE INDEX 


CET ERROR sure TO 5 

SET SIN CNTR TO 3 
TYPE ASCIZ STRING 
THE ASCIZ 













;;S9AVE DRIVE FOR TYPEQUT 
3;GO TYPE--OCTAL ASCII 
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1883 a aa a0 
fie BE jg] oovass 


1 
1889 O04405 104401 004414 
1 000420 






1 S4 

1893 O044S4 000000 

1894 OO44S6 904737 O04464 
1895 O04%4%6e 000207 






1900 OO4464 010046 
1901 O04466 013700 001334 
19 04472 001777 
1903 004476 005037 901346 
1904 Q0450e 105037 001323 
004506 000240 
1906 004510 010077 174662 
1907 004514 Ole777 O00001 174646 
1908 904See 004737 005554 
00 105777 174 
004534 005237 001346 
O04S4e 104401 O04SSO 


00460 
004602 010077 174570 
004608 105777 174SSe 


004614 104401 O04622 
620 


Ce or ed ed ee ee ee ee 
OOOOWUODUOWOOWWWW 
TONDO 


M—-OWONMUWECW--OW 


1925 O0464G 032777 OODD4O 174510 


OO4656 104401 OO04664 


SO 
1934 004726 phere poo? 174434 
1936 004740 105777 174424 
1938 004746 032777 O00100 174410 





MACY11_27(732) 


big: 
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Be UpSad ee Eee, ono 
ote 67$ ie ie ee 

R 6$ T OVER He ASCIZ 
SASCIZ <15><12>/MAKE pak i WRITE ENABLE/ 

TYPE 69$ ;;TYPE ASCIZ STRING. 

R 8 VER THE ASC 

"ASCIZ <15><12>/PRESS CONTINUE WHEN DRIVE RDY/ 
HALT 
JSR PC, INITIL CALL INITIALIZER 
RTS PC : RETURN 


;THIS ROUTINE INITIALIZES A DRIVE AND INSURES THAT IT IS READY A 


ND 
;WRITE ENABLED, IT IS ENTERED FROM MOUNT OR FROM EXECUTE IF OPERATION FAILS 
INITIL: 


INITI2: 


15: 


bige® 
2$: 


big: 


3$: 


us 


4§: 


Ss: 





MOV 0,-(SP) sSAVE RO 
MOV SubSKAR, RO -GET THE DRIVE # TO RO 
BIC #1777,.R0- *CLEAR THE UNUSED BITS 
CLR oe TIMR :CLEAR THE TIMER 
CLR aeTIMR2 
MOV _—s«RO, RKDA art DRIVE # TO ’DA’ REGISTER 
MOV #1; JRKCS ISSUE CONTROL RESET + GO 
JSR PC’ SMT 
TSTB = ARKCS DID CONTROL READY SET 
BMI 2g "IF YES BRANCH 
INC da TIMR :IF NO INCREMENT THE TIMER 
BNE § IF TIMER NOT ZERO BRANCH 
TYPE bss 53 TYPE ASCIZ STRIN 

OVER THE ASCIZ 
ASCIZ of ¢12> /CONTROL ‘eee y TIME OUT/ 
MOV RO, JRKDA ; DRIVE NUMBER TO *DA’ REG. 
TSTB = ARKDS . IS DRIVE READY 
BMI 3$ IF YES BRANCH 
TYPE 675 33 TYPE ASCI?2 STRING 
BR 6$ : GE THE ASCIZ 
"ASCIZ <15)<12>/DRIVE NOt READY/ 
BR INITI2 :GO BACK TRY AGAIN 
BIT ABITS, ARKDS :1S DRIVE WRITE LOCKED? 
TYPE 69S i; TYPE’ AScIZ STRING 
BR 8g *GET OVER THE ASCIZ 
"ASCIZ <15)<12>/DRIVE WALTE PROTECTED/ 
BR INITI2 :YES, GO BACK TRY AGAIN 
CLR aaTIMR ; CLEAR THE TIME 
MOV RO, JRKDA ‘GET THE DRIVE # TO 'DA’ REGISTER 
MOY #15, IRKCS : ISSUE DRIVE RESET + GO 
JSR PC. SMTME 
TSTB = BRKCS 
BPL 

#100, IRKDS 





;READ/WRITE/SEEK READY BIT SET? 
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1939 004754 001031 BNE &$ sIF YES, BRANCH 
004756 005237 001346 NO, INCREMENT THE 
GO’ BACK AND CHECK 
001323 
001083 
195237 001323 
booreo - 


104401 oosc06 3 TYPE ASCIZ STRING 

000414 BR 705 “GET OVER THE ASCIZ 
i718: ; (15><12>/DRIVE RESET TIMED OUT/ 

000727 3R 4 :60 BACK, TRY AGAIN 

012600 6S: (SP)+,RO RESTO 

000207 PC RETURN TO CALLER 


;THIS ROUTINE TAKES CARE OF ALL LINKAGES FOR THE 
SEXECUTE ROUTINE. IT FORMS THE ADDRESS AND SETS UP ALL THE 
; REGISTERS FOR THE WRITE OPERATION 


10$037 001316 WRL INK: as a #COMND oe WRITE OPERATION 


001314 QHDRIVE,R1 *PICK UP THE DRIVE # 
R1 “MAKE IT A WORD I NDEX 
001206 01362 1S: DRVO(R1) O#PATTRA PICK ye THE DATA PATTERN 
4 PC, CYLADR CAL LC YLINDER ADDRESS 
rRE ETUR N HERE IF NT Last BASE 
PC ETURN HERE IF L 
001336 2S: #PATTRN, J#BUSQDR’ ;GET THE ROORESS. ar THE OUTPUT 
DECYLCNT, JHWROCNT’ GET THE WORD COUN 
OHURITCS JHCONTRL :GET THE CONTROL + STATUS WORD 


PC, EXECU >CALL_EXECUT 
009920 001334 WtTd SEDSKADR iias THIS WRITE SURFACE "1"? 
BNE 3$ ?IF YES BRANCH 


o00020 001334 BI #B81T4,#DSKADR :SET SURFACE ONE BI 
001362 a#PATTRN ;MAKE IT SURFACE ONE DAT 

BR $ RELOAD REGISTERS AND EXECUTE 
090020 001334 3$: I #BIT4,a#DSKADR ;SET UP FOR SURFACE “0 
001362 aePATTRN "MAKE IT SURFACE 0 DAT 

I 2 ‘INC. THRU SELECTED ere. OFFSET TABLE 
ooses2 PC, CYLOFF 


IND 
BR RETURN NHERE IF IF NORE” TQ READ 
000207 PC RETURN HERE IF FINISHED 


;THIS ROUTINE EXPECTS TO dy: A MASK_IN Re, AND FROM THIS MASK 
;BUILDS A TABLE (AT cy Te. OF CYLINDER ADDRESS OFFSETS; THE TABLE 
1S TERMINATED BY A #377 


010546 MASK: ° ;SAVE_RS 
177400 B NP 74O0 Re sCLR THE UNUSED BITS OF THE MASK 


000200 #200,R3 SET UP_THE COMPARE MASK 
RY R THE INDEX COUNTER 

001274 #CYLTBL,RS GET THE CYLINDER TABLE ADDRESS 
Re, R3 iT re BIT SELECTED IN BASE 
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1995 oos2ee 110425 aa NOvB Ru, (RS)+ sMOVE THE CYLINDER BASE TO THE TABLE 
199 BoeSse Ape5o3 OK R3 : STATE THE CaMPARE MASK 
1998 005230 103372 BCC 1$ :IF NOT DONE GO BACK 
133 0 S2 16716 000377 MOVB t35 (RS) : IF ONE LOAD FINISH FLAG 
52 16 MOV ( 3P)+,RS * RE 
2001 005240 000207 RTS *RETURN TO CALLER 
e003 ; THIS ROUTINE FORMS A CYLINDER ADDRESS FOR GOTH THE READ AND WRITE ROUTINES 
eo of ;WHEN THE BASE TABLE IS FULLY INDEXED IT RETURNS TO PC+2 OF CALLER 
2006 OOS242 912703 001266 CYLADR: MOV #BASE,R3 ;GET THE CYLINDER TABLE ADDRESS 
2007 O0Se46 Ole702 001274 CYLAD2: MOV acyl TEL, Re GET THE SELECTED CYL BASE ADDR. 
2008 opsese 11204 CYLOFF: MOVB = (Re), sGET THE SELECTED CYL VALUE TO RY 
2009 005254 d00240 NOP 
2010 005256 122704 000377 CMPB =s-&#377,,R4 its. IT THE TABLE TERMINATOR? 
2011 005262 O01416 BEQ BASIAC IF YES BRA NCH 
e0l2 O05264 o0S046 CLR (5P) INSURE CLEAN WORD 
2013 005266 111316 MOVB (3), (SP) 5GET THE CYL ADDRESS ON THE STACK 
2014 005270 062604 ADD (SP)+,R4 AND IT TO THE SELECTED OFFSET 
2015 005272 006104 . ROL oy :SH IFT THIS RESUL 
2016 005274 O06104 ROL RY :TO ALIGN THE RELL FORMED 
2017 005276 006104 ROL ea s CYLINDER ADDRESS unre BITS 
2018 005300 006104 ROL a4 35 7 HRU 12 OF RKDA AND 
2019 005302 006104 ROL RY sSTORE THTS IN DSKADR 
2020 905304 042737 017777 901334 BIC 4017777 JHDSKADR; CLEAR ALL BUT DRIVE NUMBER 
202i 005312 050437 001334 BIS DSKADR :PUT IT IN DSKADR 
euee 005316 000207 RTS Bo" 
2023 905320 005203 BASINC: INC Ba sPICK UP ADDRESS OF NEXT SASE CYL. 
2024 005322 o00240 NOP 
2025 005324 022703 001274 CMP sCYLTBL, R3 ‘ARE YOU FINISHED? 
2026 005330 001401 BEQ RETRN3 ; IF YES, BRANCH 
2027 005332 900745 BR CYLADE :N CK 
20e8 005334 062716 o0000e2 RETRN3: ADD #2, (SP) ; SET-UP FOR PC+2 
2028 005340 900207 RTS PC : RETURN 
2031 ROUTINE TO PERFORM INDICATED FUNCTION AND CHECK FOR 
s03e *DONE AND ERRORS 
2034 O0S342 005037 001346 EXECUT: CLR DaTIMR sCLEAR THE TIMER 
2035 605346 900240 NOP *HALT HERE TO CHECK COMMAND ABOUT TO BE EXECUTED 
2036 605350 105037 901323 CLRB @saTIMRe ; CLEAR SECOND TIMER 
2037 005354 013777 001334 174014 MOV J#DSKADR,IRKDA ;LOAD THE DISK ADDRESS REGISTER 
2038 005362 013777 001336 174004 MOV J#BUSADR, JRKBA LOAD THE BUS ADDRESS REGISTER 
2039 905370 013777 001340 173774 MOV JHWROCNT,@RKWC ;LOAD THE WORD COUNT REGIS 
2040 005376 013777 001332 173764 MOV JHCONTRL,JRKCS ;LOAD THE CONTROL 
2041 05404 004737 9005554 JSR PC, SMTME sKILL TIME FOR RK 
e042 O0S410 105777 173754 CHECK1: TSTB k {TS CONTROL READY SET 
2043 005414 100011 ene BPL TIME IF NO BRANCH 
2044 005416 004737 ojeo4e JSR PC ERRCHK 
e045 O0S42e 005737 001360 TST J#ERRF ERROR? 
e046 O05426 O01403 BEQ 1$ ;IF_ NO BRANCH 
2047 005430 005037 001360 CLR JKERRFLG “CLEAR THE FLAG 
2048 O05434 o00742 BR EXECUT :TRY AGAIN | 
2049 005436 000207 1$: RTS 
2050 O05440 005237 001346 TIME: INC JSTIMR 


TE ehh oes 


ao0e0? 


010046 


042737 


Obi 282 
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001323 
001323 


o4464 
05476 


000500 
001346 


000377 
001166 
001305 


000002 
001206 


177770 
001317 


001206 
005174 


pos242 


001352 
001334 
007316 


001344 


001311 


001346 


001316 


001362 


001334 
001336 


001340 
001332 


001334 
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1$: 


bags? 


SMTME: 
1$: 


s ££% 


CHECK 
aeTIMRe : SECOND TIMEOUT? 
1$ ;IF YES BRANCH 
g4TIIRe s ENDICATE SECOND TIMEOUT 
CHECK1 GO BACK 
PC tNETIL 
653 ;;TYPE ASCIZ STRING 
45 GET OVER THE ASCIZ 
<15><12>/TIMED otst° ON OPERATION RETRY IN PROGRESS/ 
EXECUT 
#500, J#TIMR 
aeTIMR 
1$ 
PC 


; THIS ROUTINE CHECKS TO SEE IF A DRIVE IS ACTIVE FROM A 
“WRITE OPERATION, IT GETS THE READ MASK TO R3, AND THE 


RDLINK: MOV 
NOP 


RDI: 
RDe: 


RD3: 


EXPECTED DATA PATTERN TO “PATTERN, AND THEN CALLS ADDRESS 


RO, -(SP) ; SAVE RO 
#377, J#COMND HINOTCATE READ OPERATION 
#LOGA,.R1 :GET THE TABLE ADDRESS TO R1 
#SECTBL,RS :GET THE SECTOR TABLE ADDRESS 

RD2 ;SKIP_ OVER THE INDEX, FIRST PASS 
#2,R1 DD 2 TO THE ADDR 

#ORVO,R1 *ARE YOU THRU THE ENTIRE TABLE 

EXITe *IF YES EX 

(RI) . “IS THE DRIVE ACTIVE 

RD3 IF YES BRANCH 

RDI ‘TF NO GET NEXT WORD 

(R1),RO :GET THE ACTIVE WORD TO RO 

RO, Re COPY THE WORD 

RO GET THE DRIVE # TO THE LOW BYTE 
#177770, RO ?CLR ALL BUT THE DRIVE # 

RO, JWRTNBY SSAVE THE DRIVE : 


AKE IT AN INDEX 
DRVO(RO), aNPATTRA ‘te ® uP THE DATA fei 


L 
PC’ CYLADR 60 FORM A CYLINDER ADDRESS 
RD4 s RETURN HERE IF NOT LAST BASE ADDR. 


RD1 FL R 
a¥DSKTHP auoskapke® -SET THE DRIVE # BITS IN DISK ADDR. 

JHOSKADR ;SET THE SECTOR airs IN DISK ADOR. 
sROBUEE SEBUSCOR’ “pget THE BUFFER ADDR. 


JHSECCNT, QWuROCNT : :GET THE WORD COUN 
gar READ ,IHCONTRL 5 T fete READ KONTROL WORD 


: CHE 
rt, JSOSKADR cn THe “SECTOR 8175 IN O1Sk ADDR. 
BORCNTI RS ships TH Is THE LAST SECTOR? 











*~< 


pat oo te th ae stad TUPUTUTUTLD ~~ 0 0 0-- & + b= 0+ 9-< bo CCD 
4 


hake ect seats Stat theta iit tet atti ht tite (OD) SOUTE Cote COD IU Ee taohise oto ba 


Gat 


lot) 


0-4 b+ 0 4b + 0 -* 2 b-* Ob * B20 OB -* h- -* 0-2 P00 bo 0 2 B80 he & * § 0 8 = h- 2h HH ® 


et et met et eel 
4 ee 


“> 


TUOTOTUTUTULUTOPUPUTULU LUPO TUTUTUPULU PUPU PU TUTUTULU TU PUPUPUTUTUPU POPUL TUFUTULUITUNUITUM ITT TUTTI e rere reer eD 





O—* 0+ 0 + 0-2 b+ 88 0 0 he 


CeCe on Nanna 
fur C.000 NIU £ oo 


NRINDEC= 
DIRT. SRE 


11-DIRKI=¢ C MACY 
COMPATIBILITY 


006276 
B0ES76 


2 0-s9-0 OdIaIgn 
oo0e- 
Pad ed they 
“INN 
Lf bee 
~~ 


Stabe 


& 


090137 


Bowls 


000415 


104401 
OCd41e 


173216 
000100 
001322 
001321 


001334 
001334 


173320 


173306 
173264 
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MmMoz 
<7 eC 
Zwin—< 


RO?: 


SS WO Owwo 
DDWNZOr-4+ DO 
sold” whe 


EXxIT2: 


zm 
4 
w 


sie ERROR CHECK 
ON WRITING OR 


ERRCHK : 494 


1$: 


TSTSNI: 
2s: 


RESTRT: ST 


TYPE 
BR 
SASCIZ 


#B1T4, JAOSKADR 
3aPATTRN 


ROS 
#8174, a8OSKADR 
aaPaTtRN 


PC CYLOFF 
RoG 
RDI 
hi 


ROU AE eg stati 


READING 
#140009, dRKCS 


TSTSNI 
#1,aRKCS 

PC, SMTME 
ao] .gERFFLG 
= 

asECNT 
TSTSNI 
JBRESTRT 
#1000, aRKDS 


RETRN2 

“lS, arRKcs 
#-1, dERRFLG 
Pc, SMTME 
RKCS 

es 

#100, dRKDS 
aaCNTSIN 


RETRN2 
JeECNT 


6S$ 


2$ 
&7$ 


6$ :GET OVER 
CIE) <12>/S ERRORS OCCURRED ’ 


04 






USECTBL RE on idee SS SERED BESTOR POINTER 
wBIT4, SRDSKAOR - ; 


ace THAT WAS READ? 
s *) BiT 
TERN 


4 
iT NCREMENT Te apeeECTED CYL TABLE POINTER 
G0 FORM NEXT i 
IF HERE IT Is" E LAST BASE ADDR 


IF HERE GET EXT "WORD-DRIVE FINISHED 


;RESTORE RO 
;RETURN TO MAIN LINE CODE © 


IF AN ERROR OCCURRED 


; HARD ERROR OR ERROR SET? 
iH HERE TO EXAIINE ERROR REG. ECT 
ae TEST ‘SIN 
: IF yea, ° Tsete CNTROL Becer + 40 


FLAG AN A nw (PREVENT UPDATE OF ADDR) 
L READY BIT SET (FROM CNTROL RESET) 
rg ani RUN STATIC) 


TIMES? 
HERE ORS HAVE OCCURRED 

SEEK INCOMPLETE SET? 

RANCH IF 

YES, 

Bas AN 


NO 
ISSUE DRIVE RESET, SO GO 
ERROR (PREVENT UPDATE OF ADDR?) 


‘S READY™ BIT SET? 

rte (IF HUNG HERE te stat ie? 
T SEEK INCOMPLETE COUNTER 

"Ey ERRORS FALL THROUGH 


+3 a onan + STRING 
THE ASCIZ 


43 OVER 
<15><12>/73 *SIN’ +igE les OCCURRED” 


3: TYPE pacts STRING 
THE ASCIZ 





aR ght Och 


eee 


~j- 3 
Gjtue- 


MUPMUTUTUFUTUFUPUPUTUTUFUPUMU Uru UrUrUulrurmururururururnsrmrmrrorrm ruta 


PUPURMYrssascetatasarascscgagagananabceetatagaparsboncncy-ap-ae-ap-secbceccpagape 
TALE Gots tpt GER ULE oltre OD UROL E ofOs eed ~sotut e 


wor 
fur 


) 
rm 


wurururoru 
TATA 


ACYL1 e7 (732) 
SoNPATIBILITY TEST 


006304 


O0:316 


& o00004 


100000 


100099 
0011080 
003264 


001320 


000005 
007316 
001362 


001328 
008460 


000377 
001317 


OC&S44 
006574 


001334 


006624 
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TYPE 698 ; iy yte +; ee STRING 


SR 9g “GET OVER THE ASCIZ 
jabs: "ASCIZ ” DRIVE DECLARED AOWN!? NOT : STED f- 
TSTS  2acOMND :TEST THE COMMAND 
SPL 3$ ‘IF WRITE, BRANCH 
and #4, SP sFOINT 19° SAVE RO 
MOV (SP) +, RO 
Els eB1T1E. (RO) eet rte BSN 
RT pc TURN 9 ioe bone 
33: BIS #BIT1S, (RO) :SET TH N SIT 
Mov aSTACK: SP RESTORE ote STACK 
IMP gxcol 
RETRN2: RTS PC 


;THIS ROUTINE CHECKS A SECTORS WORTH 4 DATA ON A READ OPERATION 
SIT ALLOWS 5 ERRCR PRINTOUTS PES SECTOR 


ROCHK: MOV By, -(SP) SAV 
MOV’ *-(5P) Sie RS RoR ROL INK 
cLRS RR aDAP LG CLEAR THE PRINT HEADER FLAG 
iv) 
MOV 8S SHCHKCNT ‘But ERROR COUNT IN CHECK COUNT 
MOV sROGUF :GET THE TABLE ADDRESS TO RY 
MOV aePat vera RS :GET THE EXPECTED DATA TO RS 
18: CMP RS, (R4)+" SARE THE: THE SAME 
REO 3$ :IF YES BRANCH 
TSTB d3BHORFLG :1S THE HEADER FLAG CLEAR 
SNE 23 IF N 
TYPE 6S$ i TYPE feos RING 
HE ASCIZ 


ag 4 
S$: .ASCIZ <15>«12>/ERROR! aise WRI TtEN By ORIVE / 


BIS2 #377, 2sHDRFLG SET THE HEADER FLAG 
MOVE JawRTNBY,-(SP) PICK UP THE DRIVE THAT WROTE 


TYPOS 

Rie Gee 

BYTE 0 

TYPE 67$ att ASCTZ STRING _ 
33078: .ASCIZ / CANNOT SE READ.~ 
uf 

TYPE 63$ 33 TYPE ASCIZ STRING 

BR sé BS S:GET OVER THE ASCIZ 
iig3s: PASCIZ «<(15><12>/ ADDR=7 

V. QSOSKADR,-(SP) ;PICK UP THE ADDRESS THAT FAILED 

TYPOS 

BYTE 6 

BYTE 1 

TYPE 1§ 3; TYPE ASCIZ STRING 


BR +08 !:GET OVER THE ASCIZ. 
pi 218: “ASCIZ / EXPCTD=/ 


MOV RS,-(SP) ;PICK UP THE EXPECTED DATA (GC0D) 

















- 


= Pe 4 
tsb 
2-4 
a 
o-+ 
OTUs CF 


fururururururufrorururorororure 
TUrUrUrOfoforururofurorururione 
tw OR P rutue. 
“s 


Se 
PES tas Sn i 

















«ay 


wi 


006704 
006705 


11-DERKT 
C 





—< 


COMPATIBIL 


LO44d4 


“youHoy 


000424 
pecat 
010346 
104403 

O06 


080 
104491 


006650 


17777 


901350 
01031 


001256 
001246 
00116 


177400 


o0cce: 


007 i146 


007174 


me Ll 876732) 
TY TEST 


23-SEP-76 


;THIS ROUTINE BUILDS A TABLE OF PARAMETERS TO PASS TO THE SECOND SYSTEM 
;IT PACKS THE INFO FOR TWO DRIVES INTO ONE WORD 


SECONE: CLR 
NOP 


6s: 


1$: 


bag 
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73 


rh } 
/ RECVD=/ 
-2(R4) ,-(SP) 


aaCHKCNT 


4 
#MANSEL , RY 
1$ 


(SP)+,R5 
(SP)+,R4 
PC 


R3 


BNSKTBL , R2 
#PASTBL ,R2 


R1, (Re) 
ePasTEL, R2 
653 


4 VER THE ASCIZ 
(15) <12>/LOAD ANB’ START VADORESS DIO ON SYSTEM #2/ 


67$ 


6$ *:GET OVER THE ASCIZ 
(15><12>/AND TYPE’ THE BELOW WHEN ASKED FOR IT./ 


R3 
698 


83 
¢15><12>/WORD 


R3,-(SP) 


71s 


HIGET OVER THE ASCIZ 











3; TYPE ASCIZ STRING 
3;GET OVER THE ASCIZ 





;PICK UP THE RECEIVED DATA ‘BAD? 
Cent THE CHECK COUNT 





RY 
;RETURN TO CALLER 





;CLEAR THE WORD COUNTER 
RE 









; GET 72 OB TABLE ADDRESS 
:PICK_U WORD 

;GET THE 25 IVE 8 TO THE LOW BYTE 
CLEAR THE UNWANTED BITS 

;ROTATE THE BYTE, WAS DOWN SET” 
:IF_NO BRANCH 

: SHOW THE DRIVE AS OCWN IN THE TASLE 
31S 7 M HIS pe ersten #2 DRIVE? 















RIVE TO THE PASS TABLE 
OINTER 





:; TYPE ASCIZ STRING 






$ INCAS ENT THE HRD COUNTER 
3; TYPE ASCIZ STRING 








;GET THE WORD COUNT ON THE STACK 


3; TYPE ASCIZ STRING 





















MAINDEC-11-D2RKI- -¢ 
OZRKIC. SRC 


0 b= b= 6-2 pp = pe 


2e 


Be2eee? B22 


HAE Zito 


OS06 


O00 OOO DOHOOOOOOOOOVIOOONND O0O CFO OHOOOOKOVVIO00ONO DBDOOOVD0000 


0-+ oe -2 9 = 0-2 + b— bb 2 b+ bb = 8 0 2 2 He bo oh 8 he o-b +6 b-2h 0 ~~ + b+ <b + b+ 9 bo + ee op 
oO 
PS 





MACY11 é7 





732) 


OSCILLATING SEEK ROUTINE 


104401 
000432 


- 104401 


0004e 


104401 
000441 


104401 
000430 


020436 
170772 
170754 


020000 
177777 
001376 
170720 
020436 
170714 
000015 
005554 
170670 
177777 


010516 


010619 


170246 
020436 


020000 
177777 
001326 
010736 


C11030 


011140 


170730 


170706 


1$: 


es: 


1$: 


38: 


2s: 


-69$: 


bbs: 


sis: 


33708: 


-71$: 
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B 
-ASCIZ 








#ORIVO,RO sFIND OUT aiitICH DRIVES ARE 
Ri baie ee ND PUT THE 
R1, IRKDA ’S IN A TABLE STARTING 
JRKDS :AT *DRIVO’. BITS 15-13 CONTAINS 
25 :THE DRIVE # 
R1, (RO)+ 
#20006,R1 
#-1, (RO) ;SET THE TERMINATOR TO THE TABLE 
RKDA, Re 
#1, IRKCS s ISSUE CONTROL RESET + GO ! 
PC’ SMTME 
ORKCS :DID CONTROL READY SET? 
1$ tIF NO WAIT! (IF HUNG RUN STATIC) 
#ORIVO, RO 
(RO)+. aRKDA 
#15, DRKCS ; ISSUE DRIVE RESET + GO! 
aR gree 
2s 
#-1, (RO) 
3$ 
S$ ;3TYPE ASCIZ STRING 
4§ T OVER THE ASCIZ 
C15)><12>/SET swo'tO SW? TO SELECT DRIVES FOR TEST AND CONT/ 
£75 s;TYPE ASC! STRING 


&$ T OV ASCIZ 
C15) <12>/RESET slid TO SW? TO TEST ALL AVAIL DRIVES! 


aSWR, RY 3 SWC TO SW7 TOR 


4 :NONE SET, SO TEST 
#DRIVO,RO j TABLE To STORE BRIVE “aDDRS 
Rl ADDR RIV 
RY : NEXT oF eed TO CARRY 
c$ “SWITCH NO 
R1, (RO)+ SWITCH SET $0. MOVE ADDR TO TABLE 
#20000,R1 ‘ADDR OF NEXT DRIVE 
6$ :ALL DONE SEN SERS 
#-1, (RO)+ :TABLE TERMINATOR . 
OSPFLG i TYPED. ONCE? 
RWSRDY :IF YES, DONT RETYPE 
69S i Type Saseto STRING 
8 ‘GET OVER THE ASCIZ 
(15)<12>/TOGGLE tHE “FIRST CYLINDER ADDRESS" (OUTER LIMIT) 
71s s;TYPE ASCIZ STRING 
(15)<12>INTO THE LOW BYTE (BITO-7) OF THE SWITCH REGISTER AND THE “LAST 
73$ s;TYPE ASCIZ STRING 





23 OVER THE ASCIZ 
(15) ¢12>/CYLINDER ADDRESS" (INNER LIMIT) INTO THE HIGH. 

























011220 
011220 
Ollee4 
011276 
011276 
011302 
011310 
011312 


6 0 sp 
Gia 
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104401 


o004e4 


AgSsa0 


001774 


MACY11 27(732) 
OSCILLATING SEEK ROUTINE 


Oll2e6 


001326 
000109 


000001 
170042 


001146 


177400 
000312 


011356 


160037 
000001 


001402 
001404 
000050 
001404 
001402 
020436 


177777 
020436 
157610 
000100 


170054 


170046 


167632 


167570 
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7e$: 


33758: 
ug: 


RWSRDY : 


TRYAGN: 
CONTIN: 


1$: 


big?’ 


es: 


3$: 


SEKSET: 


LDSEEK: 
S$: 


33: 





TYPE 


R 
Bscrz 


7S$ 
o4§ 
«1$><1l2> 


OSPFLG 
#100, aRKDS 
RW 


SROY 


#1, IRKCS 
JRKCS 






;; TYPE AS 


HE GE 


Ri 
, AREA PRESS CONTINUE. / 


; "READ/WRITE/SEEK READY” BIT SET? 
IF NO WAIT! (IF HUNG RUN STATIC) 


;CONTROL RESET 


GET Ny ADDRESS OF THE SWITCH REG. TO 
;CLEAR THE UNUSED getts 
8 ADDRESS LEGAL? 


IF YES 
; TYPE ASCIZ STRING 


OVER THE ASCIZ 
12> c12>/ INVALID EF OY IN SWITCH REGISTER TRY AGAIN/ 


TRYAGN 
Rl 


Rl 
Rl 
Rl 
R1 


- QRSEEKI; RS 


sn INO RO 


RK 
Roe JRKDA 


#11, dRKCS 

¢, SMT THES 
DRKCS 

3$ 

#-1, (RO) 
#ORIVO 


(RO)+ rar 
#RWS, YRKD 


S,aR 


ee . 


360 BACK FOR NEW PARAMETERS 


HIS THIS THE THE LOW BYTE? 

OT ORE THE INRER LINIT OF THE SEEK 
PeTART SEEKS 

P2TORE THE OUTER LINIT OF THE SEEK 
'G0 BACK AND GET HIGH BYTE. 


;GET THE NUMBER OF SEEK CYCLES TO R3 
ADD THE CUTER LIMIT CYLINDER ADDRESS 
ADD THE INNER LIMIT CYLINDER ADDRESS 


s INITIALIZE POINTER 
T INNER LamaT CYL ADRES 
CET DRIVE A 


TISSUE SEEK+GO! (FOR INNER LIMIT) 


;ALL DRIVES DONE? 
3NO 

sADRES THE DRIVE 
:SEEK DONE? 

NO, WAIT 








RS 
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022710 MP #-1, (RO) ;ALL DRIVES DONE? 
001367 6$ ;NO 


16 9204 HORIVO,R RO 
: :SET OUTER CYL ADRES 
3 ae SRKDA :SET DRIVE ADRES 
pesgee 167542 #11, ORK cs ISSUE SEEK+GO! (FOR OUTER LIMIT) 
004737 S4 JSR ae 


apne Raat 


105777 
1603%5 
922710 #-1, (RO) ;ALL DONE? 
00136 8$ NO 


Cr oo 


#ORIVO,R 
9 10S: (RO)+ see pa ;SET DRIVE ADRES 
000109 167500 : #RWS, IRKDS :SEEK DONE? 


ll 
177777 aia ;ALL DONE? 
aU 
;DONE SO SEEK OVERS. (108 Faas 


3 
0013 LDSEEK IF NO BRANCH (KEEP C NG) 
000605 CONTIN CHECK SWR FOR CHANGE "aN CONTINUE 


b= + 6 H-* HB b ~ B-4 be hae + b= bb - B= pw pe -b— 


0 
0 
5 
6 
Q 
0 
) 
0 
0 
0 
0 
Q 
0 
0 
0 
0 
0 
0 


104401 011710 Se S$ :;TYPE ASCIZ STRING 
000401 BR bus :GET OVER THE ASCIZ 


FORMATTER-SURFACE VERIFIER 


104401 011720 tg S$ 5; TYPE ASCIZ STRING 
000441 4§ T OVER THE ASCIZ 

é, (15> < 12> /FORMATTER-SURFACE VERIFIER,SET SW REG FOR DRV #°S. PRESS CONT. / 
oo0000 as ;WAIT FOR *CONTINUE’ 


012737 O00001 o202b6 #1, SHFCNT ;SET SHIFT COUNT 
005037 020270 DRVCNT s CLEAR DRIVE COUNT 
020266 167074 : SHFCNT, JSWR IS THI 
510 :YES FORMAT fits DRIVE 
020266 : SHF CNT 


020270 DRVCNT 
000010 de0270 ) trail ;ALL DONE? 


tw oror 


my rere: 


BR $13 
020270 : DRVCNT, RO 
001161 , SCRLF 
020272 EMI ;TYPE *DRIVE’ 
MOV RO, - :TYPE DRIVE # 


104402 
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000300 


furu 
alaelaeiae 
rcMo 


;CLEAR OUT ERROR COUNTS. 


b— b= b= 9 = 9 9p 6 pp pe QgQ 


Mrurorrmrururrurururu 


OON00000000 in 


;SET WORD COUNT FOR READ FORMAT. 
. :SET UP WORD COUNT FOR WRITES. 
901420 M #0 EXTR :CLEAR EXTRA BIT FOR 12 SECTOR PACK. 
: :SET UP LOOP COUNT FOR THE CLEANER. 
167154 GOM: — M $ia600- JRKDA ss SET-UP FOR A SEEK TO 202. 


167146 8 SEDSKTEP, aRKDA 
: aRKC s1S a CONTROLER READY? 


1$ 
167124 #11, 9RKCS 'D0 THE SEEK. 
167ll2 2: #8ITE, IRKDS iis THE SEEK DONE? 
167110 : aRKCS 1s SoNAROLER READY? 
000015:° 167100 #15, RKCS 300 @ DRIVE RESET. 
000100 167066 4S: agTfe, JRKDS :1S DRIVE RESET DONE. 


:N 
%1 ; COUNT THE CLEANER LOOP. 
CON, “MORE TO G0. 
001410 M s ST@RT OUT AT CYL. 0. 
187066 : 4197277, aBA T ALL ONE” S IN BUFFER. 

J %1,10 +00 DONTHE BISK THING. 
167054 x0, 0, a8 seu ptt ZERO’S IN BUFFER. 
167042 aldsese, aBA ;PUT A ALT. PATTERN IN SUFFER.” 


: ONC 
a8 ;COMPLEMENT THE LAST PATTERN. 
O00040 001410 #40, 0A tINCRERENT TO THE NEXT CYL. 
014540 001410 CMP #14540, DA ARE WE DONE WITH {THis ONE? 
B NEXT ENO SO DO THE NEXT CY 
013564 a 42, TYPEIT :PUT OUT PACK GOOD MESSAGE. 


o4S5503 043440 ‘ /PACK GOOD./ 
027104 000 


b-2 0-< b+ b— §—= b- = b= 8 pb ps 9 pe 


URRY 
Baeeuees 


= 0 ee 


Roococooeoooeeo 


rorurororurorore 
SUERF LOU LOM LOWES Lue 


0 

0 

0 

Q 

0 

0 

0 

0 

0 

0 

0 

4] 

0 

0 

0 

0 

4] 
Ole 
0 
Ole 
Ole 
Ole 
0123 
0 
Ole3 
0 
Ole3 
i) 

0 
Ole 
0 

0 

0 

0 

0 


0612 S11 
000137 001440 GD1: DNSTART ; RESTART 
{DISK 1/0 SUBROUTINE. 
’ 
{SET UP FOR A WRITE/FORMAT. . 
Ole426 013777 O014i2 166736 10: MOV —WC, BRKWC ;SET UP THE WORD COUNT REG. 
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FORMATTER-SURFACE VERIFIER 


ce ier : Bab iR,arvon SET Whe Gia? RinseR 

oeke Re atc ak BP ne cBNTROL opr Stop SET UP. 
mC arise’ - SET FORMATS INHIBT INC. BITS. 

1, aRKCS :SEt UP WRIT 
XTR, JRKCS :SET UP 120RI6 SECTOR PACK. 


#8170, IRKCS GO DO THE WRITE FORMAT. 
JRKCS iS WRITE FORMAT DONE? 


soos 
tu 
F - 
ae = 
Or 


166654 


ia S THERE * ERROR? 
YES GO SERVICE IT. 
CLEAR OUT THE ERROR COUNTER. 


DOH40W409wWoOw 
ZW) OU) 


ONONV0NOHOOOH00000 Get 
= 

So 

<_ 


b— bb b= bb = bb bh pp ae we 


Paipiytoitunaryriny 
iia 2 eg 


001422 
:SET UP FOR A READ/FORMAT 


165626 RWC, IRKWC ;SET UP WORD COUNT REG. 
166624 DA, JRKDA SET UP DISK ADDRESS. 
JROSKTMP,ORKDA ;SET THE UNIT NUMBER 
RKBA ;SET UP THE BUSS fODRESS. 


eettio IRKCS 
#81T2, JRKCS FUN. 
EXTR, JRKCS SET UB le "BR 1é SECTOR PACK. 
166544 #8110, aRKCS GO DO THE READ FORMA 
166545 : RK i1s THE READ FORMAT DONE? 


2 
94000% 166530 IT #81714, IRKCS HAS TRERE A ERROR? 
NE RFERR "YES GO SERVICE IT. 
001424 MOV #0, ERRRF :CLEAR OUT THE ERROR COUNT. 
:SET UP FOR A WRITE CHECK. 
j WC, ORKWC 


DA? IRKDA 
Sisk, JRKDA 
BA, 9 RKB 


NH] 
i] 
0 
0 
0 
Q 
0 
Nt] 
0 
0 
0 
0 
4] 
0 


166514 


3 BUSS 
cs CLEAR THE CONTROL REG. 

nett LsBIT8, eek “SET INHIBIT INCR.SSTOP ON SOFT ERROR BITS. 

EXT cS >SET 1 ECTOR PACK. 

0000 #8ITI+BIT2, IRKCS ;SET UP WRITE CHECK FUN. 

000001 166432 #BITO, JRKCS :60 DO THE WRITE CHECK. 


OOV0N00000 
tu 


001416 ; 
001414 


001414 
001410 


;AR ONE? 
MORE NO GO CHECK THE NEXT ONE. 
Ole766 0 000000 001426 #0, ERRRFC CLEAR OUT THE ERROR COUNT. 


SLETS CHECK ON THE WRITE CHECK WE STARTED. 





at tad ad adat cat at ad 


bb 9 pe 
ONCWM CW 


MAINDEC-1i-DZRKI-C 
DZRKIC. SRC 


Sis 
FER 


Ronee 


QO002000 DBO000000 
88 8 
EVERFoen Stu 


bbe bas pas bs fs pe b+ bh > bs pe 


WWOWt 
bb 


Ce ee ee ee ee ee od 


YNOVONOOVOOOOVOOVOO0000 
b= bb Bm be bs Bb be me hs 
LWW SMM UIU £ 


RRRHRRRRR REE EI 


Se 





166370 
166362 
000000 
000000 
013510 
001422 
000004 
013564 


0S2123 
051122 


001440 
000000 
000015 
000100 


012426 


001424 
000004 


001426 
166212 
000004 
000037 


013564 


045503 
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001430 
001432 


001422 


046505 
051117 


166262 
166254 
166242 


001424 


001426 


166176 


043040 


024514 
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JRKCS 


#0, ERRWCH 
7 chen 


WCERR 


FOR WRITE FORMAT. 


RE 
%2, TYPEIT 
/SYSTEM ERROR. / 


18 


FOR READ/FORMAT. 


ERRRF 
#4, ERRRF 
RETRY 
SYSER 


'READ/FORMAT ERRORS FOUND BY SOFTWARE CHECKS. 


ERRRFC 
@RKCS 


1$ 
#4, ERRRFC 
FATLED 
RETRY 

#37, IRKDA 


#177740. %2 


%2, IRKDA 
42, TYPEIT 


LFLF 
-ASCIZ /PACK FAILED ATCIN OCTAL)/ 


‘Dut OUT “SYSTEM ERROR” MESSAGE. 


RESTART T 









is Be THERE AE ER aber gril BUSY. 
RVICE IT. 

‘CL Fak QU it THE 

ERROR COUNTERS. 

RETURN TO THE MAIN LINE. 











3 ADD oe TO THE ERROR COUNT. 
_ IT HAPPEND 4 TIMES ON THIS CYL. 


;LET_THE TECH. BREATH. 
CLEAR OUT THE CONTROL REG. 
:D0 : DRI J RESET. 

315 IT 00 

NO SO WAIT. 

TRY AGAIN. 





DONE TO_ERROR COUNT. 
HAS IT HAPPEND 4 TIMES ON THIS CYL? 


YES SO TELL Hin So. 













;ADD_ONE TO ERROR COUNT. 
sWAIT FOR THE WRITE CHECK. 









sIS.IT 4 
:PUT OUT "FAILED eee 
;NO_SO GO TRY IT AGAIN 

;PUT WHICH SECTORS HEADER 


;FAILED IN RKDA FOR THE MESSAGE. 
:TYPE OUT THE FAILED MESSAGE. 
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DZRKIC. SRC FORMATTER-SURFACE VERIFIER 





2667 013254 EVEN 
eb68 013864 1 017701 165116 nov JRKDA, 1 wessace PROR RKOR Ver SECTOR, SURFACE 
sero ot 777 BIC iio. 
671 913266 026. ADD 
2672 013672 110350 013445 MOVES ca 
spc p13678 27 OL 3p Jer S Pastte he 
B52 13306 Barts p02 ae 8127? "3 


FORMATTER-SURFACE VERIFIER 


| MAINDEC-11-DZRKI-C MACY11 €7(732)_ 23-SEP-76 10:03 PAGE S3 
DZRKIC. SRC 





2676 013312 110237 013444 MOVB  %2,SEC 
2677 013316 004337 013502 JSR ’ 1 
78 013322 0427 teaag BIC #177776, %2 
79 013226 7 0026) ADD 60, %2 
80 013232 1102 13456 MOVE SUR 
2681 013326 004337 013502 JSR 3, SHF 1 
eb8e 013342 py2702 177770 BIC #177770, %2 
2683 013346 702 000260 ADD 260 
2684 013 110237 013434 MOVB %2,CYL+2 
2685 013356 004337 013476 JSR 3.5 
2686 013362 O4e702 177770 BIC #177770, “2 
2687 013365 702 O00260 ADD 260, 
2688 013372 110237 013433 MOVB %2,CYL+#1 
26839 013376 004337 013476 JSR 43,5 
2690 013402 O42702 177774 BIC #177774, “2 
2691 013406 702 O00260 ADD 8260, %2 
2692 O13s4le 110237 013432 MOVB =e, CYL 
2693 013416 04237 013564 ISR %2, TYPEIT :TYPE OUT THE GENERATED MESSAGE. 
2694 013422 - OOSOIS c015 


ee ~_- a 


4 ee | aa 
DZRKIC. SRC FORMATTER SURFACE VERIFIER 


{ows } oe | oe | oe | oe | oe | oe | oe | os] oe | oe) 
WwW w&w 


OONONKOOONOOO0ONO 
WWW) 
ul 


Oot 3? 


006201 
006201 
006201 
010102 
000203 
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027114 20040 
020060 
Oe 


Q 
0S1l2 


001440 


040000 
001432 


ooc0o4 


Ole4%26 
001430 
000004 


013100 
013046 


165360 


165350 


00008! 
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rN. # 
7000 / 


768 / 
700 / 
“SURF. 7 


40 / 


ei 


START 


‘SHIFT SUBROUTINES. 


WRITE CHECK. 
#B8IT14,dRKCS 
WCHERR 


ERRWCS 
#4, ERRWCS 
FatL 


0 
RWCH 


ER 
#4, ERRWCH 
SYSERR 


“TYPE OUT SUBROUTINE. 


aSTPS 
TYPEIT 


E 
1628 dSTPB 


PEtT 


#1, %2 





;LET OPER DO HIS THING... 
RESTART THE TEST. 


;HERE FOR A SHIFT OF 3. 
;HERE FOR A SHIFT OF [ 


SHIFT_OF 
PUT RESULTES IN THE WORKING REG. 


;WAS IT A HARD ERROR. 
;YES GO_PROSS 
;AD t TO_ THE SOFT. ERROR COUNT. 
;HAS THERE BEEN M? 

; YES ae! a FAILED MESSAGE. 


NO et 

;AD 18. THE HARD ERROR COUNT. 
;HAS THERE BEEN 4 

;YES PUT OUT SYSTEM ERROR " WESSACE. 
:NO SO TRY AGAIN. 


;IS TTY BUSY? 


ives SO 


WAIT. 
THIS A OO BYTE? 
;YES THEN +3 ARE DONE. 
SO PRINT IT. 


‘G0 BACK AND WAIT. 
; MOV 00 BYT 


E. 
1S THE RETURN REG. ODD? 
;NO_SO RETURN. 
: YES Ag IT EVEN. 
:GO BACK 








parry "Be 


vostro — 


nh a a 


lututy 


owu 
-(1.00° IMU £ Ofue- 


fu 


)~) 

roo 

UV. 
otury 


4a 
Ct oe el 


Ururorutururyrurororot 
od 
£NOCO 


£EWIWIWGIGIG GILIL) 


SER 


ono 
o-+o-- 
4: 4: 
~ = [ i] 
fuct 


t RASS Ss 


coq@ococodj#oco do 
mun £0 


rororurorororu 





DIRAI-C =“ Ps 
FORMATTER-SURFASE VERIFIER 


013746 
104403 
00; 
p00 
10440! 
ooo426 


104401 
000423 


10449} 
000425 


MPCYLL 27732) 


013710 


013720 


000060 
060010 
001314 


001352 


014046 


001314 


014214 


014174 


014250 


0S 


10:03 PAGE SS 


es s;TYPE ASCIZ STRING 
645 ::GET OVER THE ASCIZ 


RKOS CONTROL PANEL TEST 


&S¢ $3 TYPE AScIz STRING 
643 OVER THE ASCIZ 

CLE) <12> /RKOS cont si PANEL TEST, WHICH DRIVE? 
(SP),RO 

! 

0 

#60,R0 

BAD: ON 

#10,80 
SAD: ON 
RC. J#DRIVE 
RO 
RO 
RO 
RO 
RO 
RO 
RO, JaDSk TMP 

re} i TYPE ASCIZ STRING 
bes “GET OVER THE ASCIZ 
C15) «12> “MOUNT PARK ON Cnet veee 
DRIVE,-(S°) $3 SAVE DRIVE FOR TYPEOUT 
+:G0 TYPE--0¢T AL asc TI! 

l s3TYPE 2 DIGIT(S)  — 
5 3 SUP PRESS LEADING | ZEROS 

&9$ ae Fe ASCIZ STRING 
b8¢ “GET OVER THE ASCIZ 
715><12>/PLACE DALVE IN RUN :SHOULD SEE THE RUN. - 
71S s; TYPE ASCIz STRING 
0§ OVER THE ASCIZ 

(15> <12> POWER, AND ON CYLINDER LAMPS LIGHT. - 


73$ 5 Tyee nacts STRING 


ascl?? 


2$ GET OVER THE aScIZ 
(15) (12) MAKE DREVE WRITE ENABLE PRESS CONTINUE: 


PC, WRROCK ;G0 WRITE O°S, RD O'S, CHECK 
.. ;:TYPE ASCIZ STRING‘ - 








wv 
oO 
vs) 


(000 090 Oo Cow Coot 
0 0+ b= 0+ + B= p< po bo pe 


fury 
M9. ~JWU £. Gate (9 


fururufurururuluror mrtotes 


nwo 


MAI NDEC=11-DZRKT=C 
DIRKIC. SRC 


914334 


184] 
pr wuae 


F 


0 b+ b-# 0 = bb oo CD 


OOooOoO NOHOHOOXMHONONIO0OONOHO 
+0202 0h 82 + = be Oe 
Towne OPMENT koe 


4 4 4 4 oH a ae bean hr adhe bo 


RKOS CONTROL PANEL TEST 


000430 


pene 


Oo42é 


ppgeo 


104401 


00043! -. 


104401 
000414 


104401 
000420 


000800 


104401 


000420 


o00009 


013777 
912777: 
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164630 
Cib3le 
014554 


O14e44 


014702 


014752 


015034 


001352 


164246 
100900 
015142 


140600 
01S220 


164654 
164640 


164272 
164256 


164234 


164160 
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18: TSTB 


PRTITWO: 


- 2738: 
2g: 


1S: TSTB 


B 
7758: .ASCIZ 
b45° 
23: BIT 


33778: .ASCIZ 


nee a ee eee 


;GET OVER THE ASCIZ 


74$ 
(15) (12) (18) (12> WRITE PROTECT THE DRIVE THEN PRESS CONTINUE” 


PC, WRPRO 509 TRY OVERWRITE 
74§ TYPE ASCIZ STRING 
+6 63 OVER THE ASC! 
cH czas 1a ALERR WRITE PROTECT THEN PRESS CONTINUEY 
C, WRROCK :GO0 WRITE O°S, RD O°S, CHECK 
Sagsc i JRKDA pet UP DRIVES 
#17. dRKCS FUNCTION WRITE PROTECT 
an afr $0 WAIST TIME FOR RKLI-C 
aRkCS :13 CO CONTROL L READY SET 
PC, WRERO :60 NOY ERECT TE OF IERO’S 
S$ si TYPE ASCIZ STRING 
4 ;,GET OVER THE ASCIZ 
C15) <12><15><le>’AAUTION! TRY TO OPEN THE DOOR, oC NOT FORCE: / 
&7S 3 TYPE ASCIzZ STRING 
6S -GET OVER THE jReelz 
718) <12>/DOOR SHOULE NOT OPEN! 
593 s;TYPE ASCIZ STRING 
b9¢ ;GET OVER THE ASCIZ 
TT) (12> “PRESS CANTINUE WHEN FINTSHED/ 
4238 5s TYPE psetz STEIN. 
(15) <12>¢18> (12> “BUT DRIVE IN LOAD, WAIT FOR LOAD LIGHT 


4738 s3TYPE ASCIZ STRING 
$2§ GET OVER THE ASCIZ 
(15> (12> “PRESS cOATINUE WHEN FINISHED 


24DSKTHE DRKDA ;SET UP DISK ADDRESS 
S arkcs s 1SSUE A DRIVE RESET 


Be, Sine TME KILL TIME FOR 


RK11-C 


: CON ROL READY SET? 


axe 
#GIT1S, ORKER tore StT 


BRANCH | 

4738 $3 TYPE ASCIz STR 
ms -SET OVER THE | 

<1S><12>/DRE=BrT18 OF RKER DID NO 

#140000, JRKCS Beh HARD ERROR ON ERROR SET 


IN 
ASC 
T 


RANCH 
77$ TYPE nacls STRING 


63 : GET 
<15><12> “ERROR of NOT SET 


THE ASCIZ 


f 


ET/ 








“DZRKT=-C 


eva 27 23-SEP-76 10:03 PAGE S7 
RKOS CONTREL aieL t Ber 





aes 
2863 015244 76S: 
2884 O1S544 012777 000001 164116 3$:. MOV #1, IRKCS : ISSUE A CONTROL RESET 
eee bids 4732 OOS554 138 Fe SU TME shATST TINE 
s§ oss los777 165106 4g: TB k :CONTROL READY SET 
28s? 015262 100375 BPL 4$ ;:F NO, BRANCH 
Sage O15364 832777 100000 i64oTY BIT #BITIS,QRKER  :*DRE’'C 
2969 915272 O014e5 ae: ee = +f YES SRANCH 
2870 015374 10440) 015302 TYPE 79$ : TYPE fests STRING 
2871 015300 d00422 BR dog OVER THE ASCIZ 
35° aioe i738: SASCIZ <15><12>/CONTROL ager DID NOT CLEAR ‘DRE’/ 
2874 15346 232777 140000 164014 5$: BIT #140000, IRKCS s ERROR BITS CLEAR 
2875 015354 001431 3EQ x :IF YES BRANCH 
2876 O15358 104401 O15364 TYPE 81S i TYPE. ASCI STR ING 
ea7? 015362 d00426 gk Og ET OVER THE ASCIZ 
2e78 --81$: .ASCIZ <18) (12> /CONTROL ‘RESET DID NOT AcEAR "ERROR’, RKCS/ 
e878 o15440 3s: 
2880 915440 ; : 
288: O15440 104401 C1S44s TYPE 65$ is TYPE ASCIZ STRING. 
ees> Oi5444 00422 BR 645 iGét 9 VER THE ASCIZ 
2s83 a 53858: .ASCIZ <15)«12)¢18)<12/8REN THE DOOR, PUT DRIVE IN RUN/ 
2884 O15512 64s: rg 
2885 015512 104401 018520 TYPE &7$ +3 TYPE ASCIzZ STRING 
2886 O15516 OO0425 as 6 i3GET OVER THE ASCIZ 
2387 -267$: .ASCIZ <15><12>/CAUTION!’ IF RUN LIGHT ON ERROR! DEPRESS 
2888 015572 bs: 
2889 015572 104401 (015600 TYPE 593 ss TYPE ASCIZ STRING 
2890 CIS57E O00426 BR b3¢ -GET OVER THE ASCIZ 
289! +3698: -ASCIZ <15><12>/LOAD IMMEDIATELY, CONTINUE WHEN FINISHED/ 
2692 15654 bs: | 
2893 O15654 oco0000 XX: HALT 
2894 O156S6 104401 o1Ses4 TYPE &5$ s3TYPE ASCIZ STRING 
2ess Oiss62 o00422 aR 64$ OVER asc! 
2896 53658: .ASCIZ C15) <12)<15) 12> REMOVE THE PACK, CLOSE THE DOOR, 
2997 915730 a 548: 
289s 015739 104401 oO1S736 TYPE $75 ss TYPE ASCIZ STRING 
289s 915734 O00423 38 bes OVER THE ASCIZ 
2300 -67§: -ASCIZ <15)<12>/PuT DRIVE IN RUN, DRIVE SHOULD NOT/ 
230i o1e004 beg: 
2902 O18004 104401 o1gole TYPE 69S ss TYPE ASCIZ STRING 
2303 O18Cio Goo422 BR bos “GET OVER THE ASCIZ 
2905 .69§: -ASCIZ (15><12)/RUN...INFERCLOCKS HAVE BEEN CHECKED: 
2905 916060 bag: 
2906 O16060 104401 O1606e TYPE 718 :;TYPE ASCIZ STRING 
2907 16064 9o00404 BR 0g ::GET OVER THE ASCIZ 
2908 +271:  .ASCIZ <1&><12>/DONE!/ 
2502 16075 708: . 
2919 O16076 900137 901440 JMP QUSTART 
2911 O16102 005037 901362 WRROCK: CLR aeP :MAKE A PATTERN OF ZERO’S 
2312 O16106 013777 O01 163262 MOV SADSK TRE DRKDA :SET UP DRIVE ADDRESS 
2913 016114 012777 OO0001 163546 MOV #1, IRKCS :ISSUE A CONTROL RESET 
2314 Ol6l22 004737 oODSSS4 JSR PC’ SMTME 
2Sif Ol6126 105777 163236 S$: TSTB 43s ARKCS ;CONTROL READY SET 
2916 O16132 100375 BPL af :IF NO BRANCH 
2917 016134 613777 901252 163234 MOV DEDSKTMP,IRKDA :SET UP DRIVE ADDRESS 
2318 Olel42 012777 001362 163224 MOV SPATTRN,YRKBA ;GET BUSS ADDRESS . 









ee 


SE atte 


PUroULS LOETO 


ae 


= 
fo 
Qw £O 


itt 


OQOOXOdIOIAOOOVOVWOOVVO0O0000 
— Ser 
ul 


0S 





13777 
cee 
3 


sy | 


aie 
pease 


OOSSS4 
163132 


007316 


C16260 


010316 


000040 
016330 


162736 
0°"900 
016452 


000001 
005554 
leebe2 
020000 


O16566 


001252 
0073i6 
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163214 
163204 


163172 


163142 


163044 


001362 


162746 


162724 


162632 


162610 


162526 
162516 


1$: 


2s: 


2s: 


ur 
3$: 


4$: 


;,698: 


$: 
ROCHKO: 


23-SEP-76 10:03 PAGE S8 


gsi. SBeS ge at seg 
re a 


KILL TIME FoR Bk s-C 
CORT ROL _READY SE 


one BRANCH 
SSOSKTMP JRKDA tary ‘Oe RK REGISTERS 
#ROBUFF,YRKBA TO READ ONE SECTOR 
JRSECCNT, aRKWC TO THE READ BUFFER 


g¥READCS, ARKCS 
C,SMTME’ ;KILL TIME FOR RKi1-C 


IRKCS sCONTROL RED READY SET 
SROBUFF , RY :GET SarEER 10 RY 

R SET UP_TO COMPARE 
RS, (R4)+ :FOR ZERO’ 

3 ‘IF OK, BRANCH 

6S$ $3 TYPE ASCIZ STRING 

43 “GET OVER THE ASCIZ 
(15><12>/WRITE cAices, 
WRROCK :GO BACK TRY AGAIN 
#MANSEL, R4 DONE ALL CHECKS 
3$ TF NO, SRANCH 


PC !IF YES, RETURN 
81S, ARKDS :BIT S ON 


YES. BRAN 
658 33 TYPE fess STRING 


#177777, #PATTRN ;GO LOAD ALL 
aaDSk TH SRKDA :RK R REGISTERS 


r ITE 
BaSECCNT, IRKWC FALL ONES (WITH WRITE LOCK) 
DAWRITCS, IRKCS OVER T HE ZERO’S 

PC, SMTME KILL TIME FOR RK11-C 


aRKcs CONTROL READY SET? 
#81713, ORKER shLO. 
3$ :IF YES BRANCH 
675 $3 TYPE ASCIZ STRING 
b6$ :GET OVER THE ASCIZ 
C15) (12> “EXPECTED WLO=BIT13 OF RKER BUT DID NOT SET/ 
81, IRKCS :00 Q CONTROL RESET 
PC’ SMTME KILL TIME FOR RKI1-C 
aRKCS CONTROL READY SET? 
NO BRANCH 


4g : IF NO 

41713, RKER *WLO BIT ch CLEA 
If YE NCH 

Type “bstiz STRING 


bss OVER THE aS 
(15>< 12> “CONTROL Agel, DID NO RPEaR *WLO’ OF RKER’ 


QSDSKTMP,DRKDA ;SET UP RK REGISTERS 
SROBUFF,ORKBA ;TO READ SECTOR 0, 
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Atk S 11-D2RKI-C 
_OZRKIC.S 


RC RKOS CONTROL PANEL TEST 

2975 O1SSS6 013777 001344 162506 
S78 GISSGY O137¢2 GOlaee 162476 

S77 O166 W737 Oos554 
2978 O16675 105777 162466 
ego is/0e 100378 

980 916704 012703 ooo005 
2981 O18710 012704 007316 
2982 O16714 005005 
2983 O167i6 O20Se4 

2984 916720 O01474 
2985 O16722 005303 
2988 016724 301475 
2387 016726 104401 016734 
eses Cie7s2 dose 
2589 
2930 017000 
2991 017000 0905744 
2992 917002 104401 017010 
2993 017006 d00410 
2334 
2995 017030 
2996 O17036 0104. 
2997 017032 104403 
2998 0170384 =O 
2993 0170 see 
3000 1 104401 017044 
300i 017042 dcoo406 
3003 17060 
3004 017060 o105 

3005 017062 104404 

3006 017064 104401 o17072 
3007 917070 doo406 

3008 

300 017106 

3010 17106 o1244E 

3011 17110 104404 

012 Oi7112 O22704 o10316 
3013 i716 001277 

3514 917120 00207 


tre ae ee 


3$: 


1$: 


4g 


:67$: 


big: 


;695: 


bas: 


-71$: 


dig: 


es: 
4$: 


;;65$: 
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apKés 
1S Ay s CHECK TO INSURE NO WRITE 
Ro, (R44 WITH WRITE LOCK 
R3 ‘DEC THE ERROR COUNT 
4§ !IF ZERO BRANCH 
65S 3; TYPE ASCIZ STRING 
4§ “GET OVER THE ASCIZ 
«15> «12> “WRITE obitRRED” WITH WRITE PROTECT’ 
-(R4) 
675 ;;1YPE ASCIZ STRING 
6$ “GET OVER THE ASCIZ 
C15) <12) BUFFER ABDR=/ 
RY, -(SP) 
: 
69S :; TYPE ASCIZ STRING 
93 ::GET OVER THE ASCIZ 
7 EXPCTD=/ 
RS,-(SP) 
71S ;;TYPE ASCIZ STRING 
203 -:GET OVER THE ASCIZ 
/-RECVD=/ 
(R4)+, -(SP) 
#MANSEL ,R4 sFINISHED ALL CHECKS 
1$ :IF NO, BRANCH 
PC : RETURN 








BSECCNT, JRKWC Be 0, HEAD p 
gar ERDCS, JRKCS ;TO NSURE NO WRITE TOOK PLACE 
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; THE FOLLOWING REVISION WAS MADE BY JIM KAPADIA 
-SBTTL CONTROL PANEL TEST # 2 


;THIS IS THE ENTRY POINT INTO CONTROL PANEL TEST #2. ALL 
THE DRIVES THAT ARE PRESENT AND IN "RDY’ CONDITION ARE 
sREPORTED (ON LINE). 


SECT.4: NOP 
090001 162236 MOV. #1, 9RKCS 
162232 38: aRKCS 
020436 4DRIVO, RO 
Re 


010210 : R2, (RO) ;SET UP ADDRESS TABLE 
010277 162220 Ro: JRKDA !ADDRESS THE DRIVE 
108777 1g2202 aRKDS ii IT PRESENT? 


104401 020272 7 ;TYPE *DRIVE’ 
af sp) -TYPE OUT DRIVE # 


020303 TYPE EM2 TYPE °ON LINE’ 
000300 KEIT&+BIT7,(RO) : ISET BITS INDICATING THIS 
-DRIVE PRESENT 
000015 162156 #15, IRKCS ; ISSUE A DRIVE BESET 
o0ssS4 PC, SMTME *ALLOW SOME TI 
OOC190 162140 4S: seus, QRKDS ‘WAIT FOR RWS By 
_ (RO)+ 


ay) 
029000 #20000, Re ;NXT ORIVE 
; 1$ SALL DONE? 


104401 OD1161 TYPE ,SCRLF 


CODE ay od THE CONDI 
IF *DRY’ IS The ‘. 


FLINE. IF THE ° 
REPORTED. IF THERE N 


012700 : iat ; INITIALIZE POINTERS 
005001 C 


N_OF ath t BIT IN av FOR EVERY 


0 
E 3 SA PTE MUISE IT 
T - S CH 


TI 
IV 
* BI 
IS 


BEGCTI: (RO), IRKDA sADDRESS A DRIVE 
12112 B #17727, JRKDA MASK OUT NON DR# BI is 
aRK !1S THIS DRIVE ON CINE? 


105777 
0i7270 100044 is :NO 


; YES 
017272 105710 (RO) WAS IT 'ON LINE’ LAST ie 


017274 100454 M NXT] ;YES, NO MESSAGE TO REPORT 
017276 OSe710 000200 #BIT7, (RO) ;1T CHANGES FROM OFF LINE TO ON 
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104401 020272 EM1 sLINE, REPORT MESSAGE 
MOV RI, -(SP) 


020303 TYPE EM2 s TYPE ‘ON LINE’ 
oo0040 IT HIPS, @RKDS ‘WRITE ENABLED” 


ty 
017334 65$ 33 TYPE ASCIZ STRING 
43 VER THE ASCIZ 
<15><12>/EROR, not WRT ENABLED/ 


000017 161776 28: Mov #17, IRKCS ;WRITE PROT THE DISK 
161772 33: Is aRKes 


| a ] 

hip 
lm) 

ie 

t 

« 9 

Dee 


;WAS THIS DRIVE OFF LINE LAST 
; TIME? BRNC YE 
020272 M IF NOT REPORT THE CHANGE 
MOV ‘TYPE DRIVE 


22 2 
fee 8 


O01 920315 Y EM3 ; TYPE *OFF LINE’ 
a42710 000209 I BIT7, (RO) :CLEAR BIT TO INDICATE THIS 
;DRIVE *OFF LINE’ 


;THIS CODE CHECKS ‘WPS’ BIT oe yd DRIVE THAT IS IN eT 
pag art. ey a RTS ANY CHAN o IN THE CO 
:IS REPORTED. AT THE TIME OF ENTRY Ro POINTS TO DRIVE FLAG. 


017426 105777 161732 NXT1: TSTB JRKDS ;1S_ THIS DRIVE PRESENT? 
sRKDA_ CONTAINS THE DRV # 
017432 100033 BPL NXT2 NO, SKIP CHECKING 


017434 032777 OOO0O4O 161722 BIT SWPS,dRKDS = ;WPS BIT SET’ 
017442 001014 BNE 1$ - se 


BIT CLEAR 
017444 032710 O00004 T #B1Te, (RO) ;WAS IT CLR LAST TIME 9-50" 
017450 001424 B NXT2 :YES, NOTHING TO REPORT 
:WPS' CHANGED FROM "SET’ . 


017452 020272 EM1 :TO 'CLR’, REPORT IT 
RI,-(SP) :TYPE DRIVE # 


000004 ‘Bie #B1T2, (RO) sINDICATE THAT ‘WPS’ IS CLEAR 
620343 . EMS :TYPE "WPS CLEAR 
000413 BR AxT2 
;WPS BIT IS S 


SET 
032719 oo0004 : #B81T2, (RO) :WAS IT SET LAST TIME ALSO? 
001010 NXT2 : To REPORT. 
: NGED, FROM *CLR’ TO 
REPORT THIS CHANGE 
EM! “I pRive 
R1,-(SP) : TYPE ORT VES 5 


020330 TYPE EMY ; TYPE "WPS SET’ 
000094 I WBIT2, (RO) ;SET FLAG BIT INDICATING WPS SET 


ONO00000 20000 DOOK00000 
aL aap aan aap aneL anti aml anal aed aot med el el net sed soe aed 


PEPE: 
Mo cro 


& 


104401 020272 


39 
3100 
310i 
3102 
3103 
3104 
3105 
3106 
3107 
3108 
3109 
3110 
sill 
2lle 
3113 
3114 
3115 
3116 
3117 
3118 
2119 
3120 
3lel 
sige 
3123 
3124 
3125 
3126 
3127 
3128 
3123 
3130 
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C- 
CONTROL PANEL TEST # 2 


a 
~~ 
oi 
~ 
- a) 


Gd 


on 


1) 


ZR 
3 
3 
3 
3 
3 
3 
3 
: 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
2 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 


;THIS CODE PERFORMS A SEEK FUNCTION ON A DRIVE AND CHECKS IF 


be Oe oleh Aorta ool Bizet OF 
CREO tae ERE ean (WHEN 


HIS TEST WAS EN TERED). "0 
ay THE TIME OF ENTRY RO POINTS TO THE DRIVE FLAG. 
000100 NXTe: B - hes ii THIS ORIVE PRESENT AT BEGNG 
161630 ARKDS i13 IT PRESENT NOW? 
900137 020174 4$: ONIDRV :IF NOT SKIP THIS CHECK 
777 O0004O 161626 : #40, JRKDA ;RKDA ALREADY HAS THE DRV & 
;SET CYL I ADDRESS 
O1e777 O00011 161612 #11,aRKCS ;SEEK, GO 


105777 161606 : JRKCS ;WAIT FOR CONTROL ROY? 
100375 1$ ; SOMETHING WRONG 2d CNTSL ROY 
OES NOT COME BACK 


b~ = b= p+ po 9 


032777 910000 161572 #DPL, dRKDS ‘PL 
001414 es MES, 


DPL SET 
000001 #BITO, (RO) WAS’ ‘Det’ SET LAST TINE ALSO? 
CLROPL :YES, NOTHING TO REPORT 
: DPL* CHANGED GOT SET THIS 
020272 abl 5) : TIME, REBORt $ 


020361 TYPE EM ; TYPE "POWER LO’ 
000001 I 4BITO, (RO) ;SET FLAG BIT om > THAT 


-DPL SET THIS T 
CLROPL 
:’DPL’ BIT IS CLEAR 
032710 900001 : #BITO, (RO) “WAS "DPL’ CL ER RR LAST TIME ALSO? 
001410 WATSK YES NOTHING T T 
: REPORT TPL" BIT CHANGED, 


104401 020272 EM! : FROM cer” os CLEAR 
\ RI,-(SP) 


g20402 TYPE EM? TYPE "POWER U 
017646 042710 o00001 kBITO, (RO) ‘SET FLAG BIT INDICATING THAT DPL 
IS CLEAR THIS TIME 
sTHIS CODE WAITS FOR THE SEEK (DONE ABOVE) TO FINISH. WAITING 
S APPROX. SO MS (F THE ORST CASE). IF R/W’S RDY 
AM WAITS FOR 1450 MS MORE, SO THAT 
: THE ET. DOES NOT SET WITHIN THIS 
; TINE AN ERROR IS_REPORTED: 
SIN DIDN’T OCCU 

IF R/W/S ROY SETS WITHIN SO MS THE PROGRAM PROCEEDS TO 
:CHECK THE NEXT DRIVE. 


Oi76Se 012705 164e20 WATSK: MOV #-6000.,R5 oat Sount TO WAIT FOR 


GRUN EOF 0 OUT 2 COT CODED WOOT COP OED SPOUT COPOr C900 MOO £ Gai ODED IU Leon 


se ae ee ee ae ee ee eb se 2 he be be bs bo be he bo be bo bo be 2 bb bo he b= bo pe be 













a 
Ag 


en 


005004 
Ole70S 177777 
001000 


BIFARLGO-SBos 


| sodpeerh setae setheerh sehen sod ood 


0 bbb pe bw ppp ho 
wr 
ets] 
ul 
oOo 
£ 
ul 


GI GIGI GIGIG) GJ GILIGI GIG) 





II ote! 
Lo ] 
3 
ne 
3 


wo 
wo 
D2 2 bp 2 bh be 
III 
OL ied 
ow £MuO 
5 
om 


FOROS 
ee 






3207 017724 104401 917732 
017736 O00415 





777e Q32710 900002 
001476 


oo00Se 
104401 Oe0e7e 


— ror ewe ae 


lat) uy 
WM} OWO NOULC WOW 
tf 
oOo 
-_ 
Oo 
— 
<< 
o 


104401 020423 
465 


ROPOPOFUFUFUr surororururururur 





ect 

sc O20022 032710 o000ce 

gee? 020030 052710 000002 
020034 020272 













3231 O20044 104401 O20415 
3232 


3e33 020050 017705 161322 
3e34 020054 012777 000001 
3235 Oe006e 161302 









020065 
3237 020070 010577 161302 
scs8 020074 O01e777 000015 


3240 020102 105777 161262 
ge41 020106 100375 
se42 020110 005005 
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017656 fe 000100 161500 1S: 


161456 


161306 


161266 
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es: 


4$: 


bigs 


3$: 


;IF SIN 
SINST: 


4$: 
1$: 


es: 





BIT 
8 


#RWS , JRKDS sRAW/S. ROY SET’ 
3$ ; YES 

RS : WAIT 

1$ 


;50 MS OVER, R/W/S RDY 
sDION’T SET. WAIT FOR 


= ‘SIN TO SET. 
#177777,RS SET UP COUNT 
SIN, JRKDS SIN SET? 
SINSt 7Y 

RS : WAIT 

2 

RY 

4g 

RY 

2 


;1500 MS ELAPSED, BUT SIN 
:DIDN’T SET. ERROR! 


65S - 53 TYPE ASCIZ STRING 
4§ ;GET OVER THE ASCIZ 
(15) <12>/SIN DIDN'T OCCUR, DRVE/ 


R1,-(SP) ;TYPE DRIVE # 
DNIDRV 
#BIT1, (RO) sDID R/W/S RDY SET LAST TIME? 
#BIT1, (RO) CLR FLAG INDICATING THAT SEEK IS OK 
“REPORT THAT SEEK IS OK 
Ri,-(SP) 
EM 
DNIDRV 
DRIVE RESET AND CLEAR IT 
#BIT1, (RO) sDID *SIN’ SET LasT TINE ALSO? 
4 YES, NOTHING TO REPORT | 
#BIT1, (RO) ;SET” FLAG INDICATING T 
EM :*SIN’ SET, AND REPORT HOE CHANGE 
RI,-(SP) 
, EMS ;TYPE ’SIN’ 
aRKDA RS ;SAVE RKDA 
IRKCS ?DO CONTROL RESET 
skies :WAIT FOR CONTROL ROY 
RS, JRKDA 
#15, JRKCS :DO DRIVE RESET. RKDA 
‘ALREADY HAS THE DRVE & 
aRkcs *WAIT FOR CNTRL RDY 
RS 
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g20112 000100 161244 3$: BIT #RWS, IRKDS RWS SET? 
DNIDRV : YES 


BNE 
Seuisg ES uO SALT FOR R/W/S, ROY 


‘REPORT ERROR. R/W/S RDY CLR 
020126 104401 TYPE S$ $3 TYPE ASCIZ STRING 
020132 o00411 BR 64S ‘GET OVER THE ASCIZ 


6365S: -ASCIZ <15><12>/RWS ROY NOT SET/ 
020156 64s: 
020156 BR DNIDRV 
:IF DPL SET CLEAR THE ERROR BY DOING CONTROL RESET. 


020160 900001 161202 CLRDPL: MOV #1, IRKCS ;CONTROL_ RESET 
O20166 161176 1$: TSTB = ARKCS :WAIT FOR CNTRL RDY 


T THIS STAGE THE DRIVE oe IN RKDA) HAS BEEN CHECKED 
POR DRY, WPS, DPL, & SIN. POINTERS ARE INCREMENTED 
ne Ie es, ck Lt ge ON THE NEXT 


CHE 
RIVE & THEN : HE N 


CKED. Bi jOING ON T 
; THE HEADS ARE BROUGHT BACK TO CYLINOER 
0 ( (FOR THE NEXT CYCLE). 


020174 161176 DNIDRV: MOV (RO), IRKDA GET DRIVE # 
920200 161160 TSTB = ARKDS : DRIVE PRESENT? 


$ ; 
020206 017777 #17777,QRKDA  :CYL ADRES = 0 
020214 009911 #11, aRKCS :G0, SEEK 


p2d222 161142 ORKCS _ ;WAIT FOR CNTRL ROY 
oed2e6 1 
ooss54 PC, SMTME 
O00i00 161122 4$:: BRAS, ORKDS 
. (ROI+ s INCREMENT POINTERS TO 
Rl ;NEXT DRIV 
000010 CMP = RI, #10 ;ALL DONE, THIS CYCLE? 


:Y 
Ol7es2: - BEGCT1 GO DO NEXT DRIVE 
017244 : BEGCT aReSTCRT THE CYCLE OVER 


Oe0266 000000 . SHFCNT: .WORD 0 
020270 000000 DRVCNT: .WORD 0 


MESSAGES 
O20e72 O05015 051104 OS3111 in: ~ASCIZ <15><12>/DRIVE / 
020300 020105 000 
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ENe: «ASCIZ 7 ON LINE/ 
EM3: -ASCIZ OFF LINE/ 
EM4: -ASCIZ / WRT PROT/ 
EMS: -ASCIZ WRT ENABLED/ 


020303 
020310 
029315 


-ASCIZ DRIVE POWER LO/ 


-ASCIZ 7 POWER UP/ 
ASCIZ 7 SIN/ 


051440 : -ASCIZ / SEEK OK/ 
045517 006 


FLAGS FOR CONTROL PANEL TEST #2 
15,14,13 GIVE THE DRIVE NO (EX: 0,1,2,---) 

15 SET WHEN DRY’ BIT IS SET FOR THE DRIVE (ON LINE) 

5 CLEAR WHEN “DRY? IS CLEAR (WHEN DRIVE IS IN LOAD/OFF LINE, 
S SET IF A DRIVE Ig FOUND TO BE PRESENT (DRY) AT 
NING. UNLIKE BIT 7 THIS BIT DOES NOT GET SET OR 
THE DRIVE aS CHANGE IT JUST INDICATES 


use IE: DRIVE POWER OFF 
R tS ON. 


WHEN SEEK INCOMPLETE *SIN’ OCCURS. 
teak WHEN SEEK IS OK. 
ET WHEN WRT PROT IS SET FROM CONSOLE. 
CLEARED WHEN DRIVE IS WRITE ENABLED. 


WOM yn) 
G)-+"Te-4 


RED _A 
THE 
01S 
01S 
11S 
1 IS 
e Is 
e Is 


020436 ;DRIVE FLAGS 


ODdN0d00000 


020454 000000 





MAINDE 


C-1 


ZRKIC. 


3345 
346 


sR 


ee 


-DZRKI-C 


meceld a 


HEAD ALIGNMEN 


020542 


029S4e 
020546 


021006 
021014 
021020 





104401 
000432 


104401 
000427 


aa 


000240 
104401 
000426 


020466 


020550 


020642 


021336 
021332 


000060 
000067 


020436 


000106 


020000 
021332 
020436 


2) 
TINE 


020436 
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-SBTTL HEAD ALIGNMENT ROUTINE 


ALIGNMENT R Ls oF 
Ve? = TS ASKED | THE USER 


Hs, ues 
TO B 


ihe CeTER Oeho Sun 


AD ALIGNMENT. UPON ENTRY 
R_ SHOULD D REPLY i M THE 


aL S 
GED vFok SELECTING SURFACE 
UT SWO=1.. SET SW1 =1 TO SELECT 
YLINDER “tas. 
64 BECOMES CYLINDER 130 
BECOMES CYLINDER S OF THE ODD DRIVE 
YLINDER AND DATA IS READ 


; THE UPPER OR LOWER HEAD AND CYLINDER CAN BE SELECTED 
; L ROGRAM DOES NOT HAVE TO BE STOPPED TO SELECT THE 


: UPPE OWER HEAD OR CYLINDER. 
:IN ORDER TO SELECT ANOTHER DRIVE, PUT ANY SUITCH FROM SW2 TO SWIS UP AND 
THE PROGRAM WILL AGAIN ASK THE QUESTION (DRIVE?) 


SECT.S: NOP 
TYPE 


pig 


655 3 TYPE ASCIZ STRING 


BR 4§ VER THE ASCIZ 
jj B5S: "ASCIZ <15><12>/SET SWOLH FOR SURFACE 0, SWO=1 FOR SUR 1./ 
TYPE 67S 5s TYPE ASCIZ STRING 
BR 6 “GET OVER THE ASCIZ 
jiS7S: "ASCIZ <15><12>/SET Swi FOR CYLINDER 105, SWi=1 FOR CYLINDER 64/ 
"TYPE 69S 5s TYPE ASCIZ STRING 
8$ GET OVER THE ASCIZ 
j 3698: ASCIZ <15><12>/PUT ANY SW FROM 2-15 HI TO SELECT NEW DRVE/ 
HDALGN: TYPE EMO :ASK FOR DRIVE # 
CLR FFLAG :FLAG FOR RK-OSF 
RDLIN :GET 
MOV (SP)+,R1 i BEOR” OF COMMAND STRING 
MOVB (R1)+_RO FIRST CHA 
SUB #60,R0 : 
BLT HDALGN :TOO SMALL 
CMP #67, R0 :MUST BE ? OR LESS 
BLT HDALGN :TOO BIG 
cle 
ROR RO 
ROR RO 
ROR RO 
ROR RO 
MOV RO, DRIVO ;ADDRESS OF DRIVE 
MOVB  (RL)+,RO *NEXT INPUT CHAR 
BEQ S$ “ALL DONE IF C.R. 
CMP RO, #’F 15 IT F? 
BNE HDALGN *NO, SO ERROR 
TSTB ss (R21) ;NEXT CHAR MUST BE C.R. 
BNE HDALGN “ELSE, ERROR 
BIC #81713, DRIVO [USE EVEN DRIVE IF RK-OSF 
INC FFLAG :SHOW F TYPE DRIVE 
S$: MOY DRIVO,RO :DRIVE ADDR TO RO 








Bt 


-11 
C 


PSWIRLAR.S 


wu co 


FOFUFUFOFUFOFUTU FOF UFO FOFOFUFOrOrOrorOrorOfOrOfOFORDNOND 
al eed eed 


+b = b— bb + = b= + bb bP bh 


oO 
fj 
ps 
fr 


d— 0+ 0 bb + bb pb - = bo hp pn pe 


FPIVSLOHHR LOHR 


oo 
ror 


-DZRKI-C 


MACY11 


7 (732) 


HEAD ALIGNMENT ROUTINE 


01 
012777 


105777 
100375 


00137 
ccooo0 


160110 
177775 


021332 
020000 
160316 
000017 
169276 
000001 
160262 
021332 


000240 
021334 


010100 


004000 
021334 


002440 
160210 


000001 
160174 


157736 
177775 
021334 
160156 
000017 
160136 


000020 


1600S4 


177774 
020720 


021334 
021334 


1$0200 


160142 


157672 


160076 
160072 
160060 


157614 
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7$: 
8s: 


9S: 


125: 


10$:. 


12S: 
118: 


6$: 


4$: 


es: 


3$: 


FFLAG: 


aSWR, SWTCH 
#177775, SHTCH 
FFLAG 

#81T13, RO 

RO, aRKDA 

#17, IRKCS 
arKes 


$ 
#1, IRKCS 
aRKCS 


$ 
FFLAG 

13$ 

#5. *40,R1 
SWTCH 

10$ 

#130. *40,R1 
#64.*40,R1 
SWTCH 


10$ 
#41.#40,R1 
aRKCS 


11 

#1, IRKCS 
aR . 
125 


RO; JRKDA 
#-400, JRKWC 
#ROBUFF , IRKBA 


tINTO THIS BUFFER 
#5, JRKCS READ, GO 
ARKCS ; DONE? 
3$ :NO 


Et ers , OSWR 
HDALGN 





sHOLD SWITCHES 
WANT Sid 


1 ONLY 
*SW1 SET, SO LOW CYLINDER 
;F DRIVE? 


;NO 

;ODD_ DRIVE IF HIGH TRACK OF F 
;ADDRESS DRIVE 

WRITE PRCTECT 


;WAIT FOR DRIVE READY 
;RESET CONTROLLER 


enor FOR READY 
— 


Brows, S OF HIGH 


;YES SO TEST TRACK 8 OF DRIVE HIGH 
; TRACK 130. IF SWi SET 


s CYLINDER 64 IF NOT F 


1S 

YES SO, * CYLINDER 64 

scvL tNDER 105 
eGR? 

NO CONT INUE 

RESET 


;WAIT FOR READY 
saute tee TO Re 


sANY CHANGE SINCE LAST? 
ES, GO SET-UP ADDR AGAIN 

i OBBRESS THE DRIVE 

WRITE PROTECT THE DRIVE 

WAIT FOR CONTROL RDY 


ches aa ADDF. 


W 

NO TEST oa 0 

; TEST TRACK 

; CLEAR CYLI NOER ADDR 

;PUT CYLINDER ADDR IN ADDR 
ADRES THE DRIVE 

READ 1 SECTOR 



























sEXIT OUT? 
:NO, CONTINUE ON THIS DRIVE 
YES, GET NEW DRIVE 









RRRRE BEBRRRRRRBERBBT 
Bee ome See See eee ee ome ome og a) FY] 


Eadie t 


RRR RERERR 





“DIRKT-¢ 


MACY] 


HEAD ALIGNNENT 


021350 


fe 


e777 


o-oo 
3 


atets 
mou 
Bey 
irut 


= —-ONMOOOOUN 


051108 O$311i 


000 


177? 


020436 
02000 


004003 


7? occc20 
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SWTCH: 0 
EMO: .ASCIZ «15><«12>/DRIVE?/ 













~SBTTL OISK POWER FAILURE TEST 


ptt Plat a (DURING DISK WRITE) TEST 
HIS TEST CHECKS THAT THE INFORMATION WRITTEN ON THE DISK IS 

not DESTROYED WHEN THE OISK SENSES L' S_ QF POWER gHite i A WRITE 
;AND RETRACT HEADS. UPON Y “GRAM FIN 
sFIRST AVAILABLE DRIVE INDICATES IT (DRIVE <X)_ AND PROCEEDS 10 wenne” 
; CYLINDERS S ARE WRITTEN WITH UNIQUE “i NS a HeN THE HEADS 
;ARE POSITIONED ON CYLINDER 10 (DECIMAL) AND A MESSAGE (DRO 
: } AFTER RECEIVING THIS MESSAGE iH USER ae 
;DROP POWER FRO IVE. ON SENS AL a 
;PROG AM ASKS THE USER TO PUT BACK THE R He ERRORS Plt 

TARE LEARED AND oe IS PER QRMED to cHECk I 


CYLIND 
: THERE. If ho = WRITE CHECK ERROR Is REPORT ED. 


SECT.6: cL RD 0 s INITIALIZE DRIVE 8 
eg MOV RC, aRKDA :IS IT PRESENT? 
TSTB = ARKDS IF NOT KIP 
BMI 
1208 INC DRIVO 
ADD #20000,R0 
BNE =F} 
BR SECT.6 
og TYPr EM] 
MOV ORIVO,-(SP) 'sGET DRIVE 
TYPOC 
MOV #1, IRKCS sCONTROL RESET 
TST a RKCS 
SPL - 
CLR RS 


NIT a. PATTERN TC BE WRITTEN 


31 
30 ON CYL O, 2 ON CyL 1, Ere 


MOV caRL 
1S: MOV RS, BUFR sFILL THE PATTER IN DATA SUFFER. 
MOV 8BUFR, IRB :BUS A 
MOV e-14000 aR2 3WRITE 1 agit (256X12x2 WORDS) 
MOV #4003, dR4 WRITE 
TSTB sR WAIT bon” SONTROL READY 
PL 2 ieee 
INC RS : tWRITTEN ALL is CYLINDERS? 
CHP RE, 820 -IF NOT, GO BAK 


a eS eS SO NS 





Ate sat ZRKI-C 


“J 
uw 


ratatata 
ph + 0-2 pp o> 


CUTE 


wt 
furor o- rai 
» OOD Ul os 


rut 


GICIGIGIGIGIGS 
Ul Gitue- 
fe 
uw 
& 


AGN 


e 
356 Yel774 


019005 
0Se? a 


ODd000 
o-=0— 0 p-<9-= 
Mrur crt 
“Jb = po 
-, tata at 


if 


33 ~3~3~ IU) 


ee 
: 


104401 
O5040€ 


005714 
100023 
104401 
000416 





099S99 
000012 


164000 
at 
04003 
090100 
021562 


021634 


157510 
000301 


157504 
022006 


004507 


021732 


o0cde0 


























1 e7(732) 
Disk POKER” FAILSR & TEST 


23-SEP-76 10:03 FAGE 69 


MoV RO, RS ‘DRIVE # 
x BIS - #S00.R5 sCYL_10 
oz2006 ay ale BUFR : PAT BN TO To Bek WRITTEN 
MOV RS oR1 !ADRES T 
MOV e- 13900 dR2 ; WORD counts 1 K CYLINDER 
MOV sSUF aR3 
MOV sabos's rh TE, GO, IBA 
187612 28: gi Baus, 3 sens : WAIT eof THE HEADS TO SETTL 

FER S$ 30H Cy ASCIZ STRING . 
BR 4g GET OVER THE ASCIZ 

-:65$: .ASCIZ /DROP POWER/ 

b4§: 

. SR S$ 

38: MOV RS oR! sADRES THE DISK 
MOV #-!4000, aR2 :WORD COUNT= 1 CYLINDER 
MOV #SUFR, R23 : BU BORES 
MOV #4003, JR4 WRITE 

S$: 1373 ary “WAIT bof OAT ROL READY 
TST aR4 WAIT FOR DRIVE POWER TO GO DOWN, 
a sa “OTHERWISE, KEEP ON WRITING ON CYL 10 

:IF DRIVE POWER LOSS WAS SENSED, 
:ASK TO PUT POWER ON. 

TYPE b7§ i TYPE ASCIZ STRING 
ge &$ GET OVER THE ASCIZ 

i387 ; TASCIZ <1§><12>-POWER Of? 
ISTE aRKOS sWAIT FOR ORIVE READY 
MOY 81, aR4 :CONTROL RESET, CLEAR ERROR 
S78 20s oaRS 
SPL e* 
MOV RO, ORKOA 
CLR RS e s INITIALIZE PATTERN 
MOV #-14080, 3Re ; 
MOV #4007, aR4 :WRITE CHECK, GO, IBA 
TSTB) 2 saRY 
PL -2 
TST RY Ny ERROR? 
BPL 7g 
TYPE &9$ | TYE ASCIZ STRING 
R T OVER THE ASCIZ 


Q bsg 
ib98: ASCIZ fe s c12> /ERROR, AA BWR-UP. | REDAS- 





bé 
MOV aR1,-(SP) 
TYPOC 

7$ INC SD 
CMP RS, #20 
BNE 6$ 


-O 
wo 


(ROMER ROOF a 
WOON £ WMO 


TU TU 0+ 0- + & + 0 0 bo 
— 


MAINDEC=11-D2RKI-¢ 
DERKTC. SRE DISK POWER. “FALL fae’ 


O22002 000137 
D22006 000000 


O22 132 





021370 


001157 


ccocve 


o0d30e 
000011 
000200 


Oee2e4 


022160 
001156 


001154 
00000: 


022160 
Oe2ce4 


ou 
mw 


23-SEP-76 
BUFR: 


; RERERERERERESRRERRERREE EERE ERE RARER EARLE EERE EE EE ELAR EE EEE RES ERE 
i ROUTINE TO_ TYPE ASCIZ MESSAGE. MESSAGE MUST ceRninere WIT A QO BYTE. 
; THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A Le 

*NOTEL: SNULL CONTAINS y. CHARACTER TO BE USED AS 
SFILLS CONTAINS T 
SFILLC CONTAINS THE CHARACTER TO FILL AF 


HANOTER: 
*NOTES: 


50S: 


;HORIZ 


1u:03 PAGE 70 


10$ 
a) 


~SBTTL TYPE ROUTINE 


:* 

2 #CAL L: 

#1) USING A TRAP INSTRUCTION 
TYPE . MESADR 


STPFLG 
1§ 


0 
(RO)+, .- (SP) 
(SP)+ 
(SP)+,80 
#2, (SP) 
jt 
gCRLF, (SP) 
(SP)¢+ 


SCHARCNT 


Po §TYPEC 
SFILLC, (SP)+ 


SNULL , -( SP? 
(SP) 


z 
PC, $TYPE 
SCHARCNT 


TAL TAB PROCESSOR 

























FEED. 
THE FILLER CHARACTER. 
HE NUMBER OF FILLER Cres ag ERS REQUIRED. 













;:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 






i315 THERE A TERMINAL? 
ae IF NO TERMINAL 


e lett POP IT ae THE *stack 
380 IU u RETURN PC 

::BRANCH IF <HT> 

;;BRANCH IF NOT «CRLF 


73POP_ <CR><LF> EQUIV 
3: TYPE a CR AND LF 


gerne iF CHARTER COUNT 


GE 

GU re te Posey CTER 
its IT . FICLe® CHARS.” 
33; IF NO aa et 
7:GET 8 ee FILLER CHARS. “NEEDED 
:;AND Th he NULL CHAR. 
;;D0ES A NULL ere TO BE TYPED? a 
; BR IF _NO--GC POP THE NULL OFF OF STA 
7.90 TYPE A NULL 
3:00 NOT COUNT AS A COUNT 
; ;LOOP 





-- 


MAINDEC=11-DZRKI-C 


DIRKIC. SRC 


3625 


Oee 
pSs5208 





TYPE ROUTINE 


112716 


000040 


MACYLL &7 (732) 





SS BLIP can 


017646 


113704 


156764 


009902 
000015 


Oeeee4 
000012 


000600 
090001 
022455 
000002 


000001 
00 


C006 
oooc0s 


Oze455 


090002 


022453 


022453 
O2e455 
022452 


$TYPEC: Ferg 


1$: CMPB 


cB 
SCHARCNT: . WORD 
$TYPEX: RTS 


-S8TTL BINARY TO OCTAL (ASCII) 


23-SEP-76 10:03 PAGE 71 






06 


pe 
fe Es 





;;REPLACE TAS WITH SPACE 
s;TYPE A ck 
+} BRANCH F NOT AT 
:; TRB STOP 
: POP SPACE OFF STACK 


;GET_NEXT CHARACTER 
WALT UNTIL PRINTER IS READY 


73 LQAQ CHAR TO ys TYPED INTO DATA RES. 
315 ae CARRIAGE RETURN’ 

: GRAN CH IF NO 

73 YES=-CLEAR CHARACTER COUNT 


xT 
He Sa A LINE FEED? 


AN 
; SBOUNT THE CHARACTER 
:;CHARACTER COUNT STORAGE 


AND TYPE 


5 EERRER ELE LEER REESE EERE RELLARE EAEE RE RE LER ARE ELAEEEERERRELEL ERR EES 
tATHIS R ROUTINE IS USED TO OR A 16-BIT BINARY NUMBER TO A &-DIGIT 


; FOCTAL (ASCII) 


NUMBER_AND T 


NUM, -(SP) 


N 
M 


ae HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


;;NUMBER TO BE pep 
sina FOR TYPEOUT 
N=1 i 8 FOR NUMBER OF DIGITS TO TYPE 


;;L=TYPE LEADING ZEROS 
;;Q=SUPPRESS LEADING ZEROS 


ee 
se 


 #STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
i #$TYPOS OR $TYPOC 


NUM, -(SP) 


s;NUMBER TO BE TYPED 
::CALL FOR TYPEOUT 


SSTYPOC---ENTER HERE FOR TYPEOUT OF A i& BIT NUMBER 


. st MOV 
3 TYPON 
i+ MOV 
;% TYPOC 
S$TYPOS: MOV 

MOVB 
MOVB 
ADD 
BR 
$TYPOC: MOVB 
MOVB 
STYPON: MOVB 
MOV 
MOV 
MOV 
MOVE 


NUM, -(SP) 
ase), SOF TL 
1¢ 

+g 

at 

#1, : Pru 
#6, SOMODE+! 
#5, T 


RS; - 
SOMODE+1 , RY 


;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


;;PICKUP THE MODE 

Hey ZERO FILL SWITCH 
NUMBER OF DIGITS TO TYPE 

: SADJUST RETURN ADDRESS 


BET THE EERO FILL SWITCH 
;SET FOR SIX(6) DIGITS 
:iSET ys ITERATION COUNT 
$5 20VE RY 
;SAVE RS 
bieey THE NUMBER OF DIGITS TO TYPE 













MAINDEC-11-DZ2RKI-C MACYL1 27(732) 23-SEP-76 10:03 PAGE 72 
DZRKIC. SRC BINARY TO OCTAL (ASCII) AND TYPE 






aT eM 006 Abe fe. RY RY BIRACT IT FOR MAX. ALLOWED 
Resale Pos G93 pggcee MOVE = RY RODE + Shee I FbR (ise 

3684 O22322 113704 022453 MOVB SOFILL, RY ::GET THE ZERO a SWITCH 

3685 922226 018605 oodo12 MOV kecSP), "RS ::PICKUP THE HE INPUT NU UMBER 






022336 BR 3 ;G0 D 
O2e340 006105 2$: ROL RS : FORM THIS DIGIT 











3692 22346 910503 MOV RS,R3 
3833 022350 006103 38: ROL R3 :;GET LSB OF THIS »DIGIT 
3694 O22352 105337 o224s4 DEC SOMODE $;1YPE THIS DIGIT? 
3695 022358 100016 BPL :BR IF NO 
3696 022360 042703 177779 BIC #177770,R3 :$GET RID OF JUNK 
3697 22364 001002 BNE 4§$ : TES 

022366 005704 TST RY. :] SUPPRESS THIS 0? 
3699° 022370 001403 BEQ cs FY 

052 

3702 O2240G 052703 900040 S$: BIS a + 3MQKE asc : IF NOT ALREADY 

022404 110337 o22450 MOVB R38 + COVE FOR 
3704 22410 104401 O22459 . TYPE 8 3300 TYPE THs DIGIT 
3705 022414 105337 d2e452 7$: DECB  $0CNT UN 
3706 O22420 003347 BGT 2 BR IF MORE TO DO 
3707 Qepda2 oo>4o2 BLT 6S :BR I 
3708 O22424 cos204 INC RY $$ INSURE LAST DIGIT ISN’ T A BLANK 
37039 O22426 000744 BR 360 Dg THE LAST DIGIT 

2432 ) ee 
3712 22434 012603 ~ MOV (SP)+,R3 :RESTORE R3 
3713 022436 016556 00002 CO0004 MOV 2(SP)4iSP) SEF THE STACK FOR RETURNING 
714 See444 Ol2e16. MOV (SP) +’ (SP) 

3715 Oees4e 00002 RTI RETU 
3716 O224S0 006 8S: BYTE 0 SYoRaue FOR ASCII DIGIT 
3717 O22451 600 0 :: TERMINATOR FOR Tyee ROUTINE 
2718 O22452 00 SOCNT: fe 0 s3QCTAL DIGIT COUN 
3719 Oe2453 090 SOFILL: 0 2:2EP9 FILL 
3720 O22454 00000 SOMODE: .WORD 0 ::NUMBER OF Biarre TO TYPE 
3721 SBTTL ity INPUT ROUTINE 







3723 EGE HEHEE HEHEHE HEHEHE HEHEHE HEHEHE 
3724 ‘ENABL LSB 


3726 .DSABL LSB 







3723 s LEERHERAE AH HE LALA RARE AA AREAL A ARS RALA RE RALA LAE RALE RAL LE ARAL LAEAE 








Le :ATHIS: ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 

3732 i RDCHR . 3; INPUT A SINGLE eg Ll FROM THE TTY: 
3733 7% RETURN HERE ;;CHARACTER IS ON THE 

sad ;* ;;WITH PARITY BIT STRIPPED OFF 


MAINDEC-11-DZRKI-¢ 
DZRKIC. SRC 


022720 


O11S46 


MACY11 27(732) 
TTY INPUT ROUTINE 


000004 
1564Se2 


ISE446 
177600 
oo0c04 
156420 
156414 
177600 
0000e1 
oocc0% 
oo90c4 
000040 


022032 
023062 


000177 


000134 
023030 
177777 
023032 


023030 
023030 


000134 
023030 


oocdes 
023062 


00000e 


000004 
000004 
000023 


000140 


000175 


000084 


023030 


023030 


23-SEP-76 10:03 PAGE 73 


SROCHR: 


1$: 


Movs (SP) ,~(SE) 
MOV acs ,2(SP) 


3S TKB 

teat GtSP) 
4(SP), #23 
aSTKS 

2s 

a$STKB,-(SP) 
#tC17? (SP) 
(SP)+, bel 
45), 8190 
4(SP), #175 


#40,4(SP) 


;;PUSH oe THE PC 
; SAV PS 


THE T 
;GET_RID OF MYUNK IF ANY 
Is IT A CONTROL-S? 
;;CRANCH IF NO 
;;WAIT FOR A CHARACTER 
Hil UNTIL ITS THERE 
;GE ARACTER 


RESUME 
S {tT UPPER CASE? 
ie C4 IF YES 
::IS ITA SPECIAL CHAR? 
+ Rac YES 
CASE 


; MAKE R 
GO BACK TO USE 


48: RTI 
i ciaagnahoniamesiaaatastnilaamakites teteuckererabiamuimbeniaiaa 


34 


% 
$ROLIN: 


1$: 
es: 


108: 


ROLIN 
RETURN HERE 


R3,-(SP) 

-( SP) 
aSTTYIN 
agITVINGSS, R3 


“(SP)+, (RB) 
#177, (RB) 
c$ 

(SP) 

3 

#°\, 98 
b-3, (SP) 
R3 

R3, eSTTYIN 


SP) 
#25, (R3) 
» SCNTLU 


THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


;; INPUT A STRING FROM THE T 
ADDRESS OF FIRST CHARACTER WILL BE QN THE STACK 
:; TERMINATOR WILL BE A BYTE OF ALL O'S 


;;SAVE_R3 
CLEAR THE RUBOUT KEY 
::GET ADDRESS 
: BUFFER FULL? 
R IF YES 
1169 REAQ_ONE CHARACTER FROM THE TTY 
$315 IT é RUBOUT 
:BR IF_N 
Ts THIS THE FIRST RUBOUT? 
{TYPE A BACK SLASH 
;;SET THE RUBOUT KEY 
::BACKUP BY ON 
si STACK E EMPTY? 
i SETUP, 10 TYPEOUT THE DELETED CHAR. 


Y 
;;G0_READ ANOTHER CHAR. 
su KEY SET? 


TETYPE A NBACK SLASH 


a THE RUBOUT KEY 
i315 CHA yh A CTRL U? 


;BR I 
;; TYPE A CONTROL “U" 











Cesta Enea ere ereaereaert tate 
tat stated feted 


C JA-D2RKI = 


DaAKie. 






006301 


Ty INPU 


MACY! 


o0Cd2e 


001161 
023032 
001160 
023030 
023030 
000015 


177777 
001162 


000004 
023032 


005015 


047040 
000040 


oocco4 


2 (732) 
T ROUTINE 


000002 
000004 


000 
000012 
020122 


053505 


oocode 


; 

’ 
» ot 

° 
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4$: 
3$: 


9s: 


STTYIN: . 


. SBTTL 


% 
3% 


SRDOCT: 


2s: 


READ AN OCTAL NUMBER FROM THE TTY 


5p SERRA REE EEE HEE EERE ER ER EERE ER EERE EERE REE REE EERE EEE EER EEE 
s#THIS ROUTINE wit _ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
*CH “tie IT TO BINA 


MOV 


1$ 

a, 
(R3) 

» SCRLF 
‘STTYIN 
$QUES 


(R3), 98 


3g 
iS, (R3)+ 
2$ 


~1(R3) 
$L 


0 
0 


30 
/tU/<15><12> 
7#G/<15>< 12> 
¢15><12>/SWR = 


/ NEW = 


RDOCT 
RETURN HERE 


3 PICKUP THIS ta 
; ry 1B ZERO GET OUT 


;;G0 START OVER 
ii CHARACTER A “TR”? 


NO 
i3CLEBR THE CHARACTER 


37 “C 
HDPE THE INPUT STRING 
SPE At ANOTHER CHACTER 


: CLEAR THE BUFFER AND LOOP 
;;ECHO THE CHARACTER 


ss CHECK FOR RETURN 
3;LOOP_IF_NOT RETURN 

HOLEbR RETURN (THE 15) 
 CLERN RuBOUT KEY FROM THE STACK 


3 ;ADJUST THE STACK AND PUT ADDRESS OF THE 
3 FIRST ASCII CHARACTER ON IT 












RETURN 
fee FOR ASCII CHAR. TO TYPE 
; RESERVE 30 BYTES FOR TTY INPUT 
SECON TROL “U" 


BENT mf 







;;READ AN OCTAL NUMBER 
;3LOW ORDER BITS ARE_ON TOP OF THE STACK 
::HIGH ORDER BITS ARE IN $HIOCT 


SF NDUT A oe FOR THE 


NU 
; PUSH RO ON athe 
;;PUSH R1 ON STAC 









33 *4 
33 *8 









MAINDEC- pA-DERKT ES 


DZRKIC. SRC 

3849 023162 

3850 022164 
ap 

3853 023174 

3854 O23! 

3855 Oe32 

3856 023206 

3957 923210 
58 2321 

3859 023214 

3860 02321 

3861 

3862 

3863 

3664 

3865 

3866 

3867 

3868 

3869 023220 

3870 Oeseee 

3871 023226 

3872 023230 

3873 023232 

3874 de3034 

3875 023240 

3876 

3877 

3878 

3879 

3880 023242 

3881 023244 

3882 Oescs2 

3883 

3884 

3885 

2886 

3887 

3888 

3889 

3890 

3891 023254 

3892 0232 

3893 923260 

3894 23262 

3695 023264 

389% 

3897 

3898 023266 

3899 023270 

3900 023272 

3901 

3902 

3903 


0 
900500 


000082 


022456 
022576 
023116 


MACY11 27(732) 


177770 


900012 
ocsels 


000002 


023254 


ooos04 9000002 


23-SEP-76 10:03 PAGE 7S 
READ AN OCTAL NUMBER FROM THE TTY 


3$: 


$HIOCT: 


ORD 


WWW wWw 


DUD 


.S8TTL TRAP DECODER 


iTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRU Tt 
THIS ROUTINE WILL PICKUP T 


; SAND USE IT TO INDEX THROUGH THE TRAP TABL 
THE DESIRED 


STRAF: 


;;STRIP THE ASCII - 
+ ADD IN THIS DIGI 


OOP 
+ CLEAN Mg ih FROM STACK 


;;S9AVE THE RESUL 


;;POP STACK INTO ne 


;;POP STACK ito Bi a 


3 3 POP STACK 


; RETURN 
: {HIGH ORDER BITS GO HERE 


LOWER BYTE OF THE ™ INSTRUL 7 ION 
E FOR THE STARTING "AOORESS 


ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
oo TO THAT ROUTINE. 


RO, -(SP) 

2(5P),RO 
-(RO)’ 
(RO) ,RO 


STRPAD(RO) ,RO 
RO . 


3; INDEX 


3360 TO ROUTINE 


;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 


:;MOVE THE PC DOWN 
ZIMOVE THE PSW DOWN 
::RESTORE THE PSH 


STRAPe: 


MOV 
MOV 


(SP), -(SP) 
4(SP),2°SP) 


-SBTTL TRAP TABLE 


;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
:*BY THE “TRAP” INSTRUCTION. 


ROUTINE - 


. 
’ 


$RD 
-SBTTL POWER DO 


érRPAD: ‘ 
$ 


$TYPON 


SROCHR 
SROLIN 


So 
O° 
4 


; ;CALL=ROCHR 
3 SEAL ERO AN 


CALL=RDOCT 
bit AND UP ROUTINES 


eed teeta} 


TRAP +4 ( 104404 ) 


TRAP+5 (104405) 
TRAP +6 ( 104406) 
TRAP+? ( 104407) 


;;SAVE RO 
3 3GET Mg A ae 


;GET RIGHT BYTE OF TRAP 
: }POSITION A hee pOeiie 


TTY TYPEQUT ROUTINE 

TYPE See NUMBER (WITH LEADING ZEROS} 
TYPE OCTAL NUMBER (NO LEADING ZERO 

TYPE OCTAL NUMBER (Aas PER Last BALL 


TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROU 
READ AN OCTAL NUMBER FROM TTY 


© EXKKRLEARAKARALARAAAAAAAA LER AS AAA SALAARARARAARARARAAASRERRERAKE 
BOWER DOWN ROUTINE 
















BOOB BBO 
WONWUICWwtTU 


3 














023450 


MAINDEC-11-DZRKI-C 
DZRKIC.SRC 


PO 


12737 
1 


000122 
000001 


WER DO 
012737 


mMaCY11 
WN 


023434 
000340 


isss42 


023274 
000340 


047520 


27 (732) 
AND UP ROUTINES 


000 
000026 


000024 


ooode4 


000024 
000026 


C42527 





23-SEP-76 10:03 PAGE 76 





024 S$PWRDN: MOV #SILLUP, JHPWRVEC ;:SET FOR FAST UP 
MOV 8340, HPWRVEC+2 ;:PRIO:7 
RO, -tSP) :PUSH RO ON 
pyc’ 
MOV RG’ =(SP) : PUSH RY TACK 
MOV RS. -(SP) »:PUSH RS ON STACK 
MOV aSWR, -(SP) ::PUSH aSWR ON STACK 
MOV SP, SSAVRE :SAVE SP 
HOV, #SPWRUP, JHPWRVEC’:;SET UP VECTOR 
BR 72 ;;HANG UP 


g% PoeTCSTSCT OC TOCT CCT O TTT CS CCC OTST TOTS T TTT E TTT CTT TT TTT TTT TT TTT ES 
“POWER UP ROUTINE 


$PWRUP: MOV #SILLUP 
MOV SSAV 


@#PWRVEC ;;SET FOR FAST DOWN 


0 SAVE, SP +: 
CLR SSAVRE *:WAIT LOOP_FOR THE TTY 
1$: is " SSAVRE *:WAIT FOR THE INC 
NE l :;0F WORD 
MOV (SP)+, aSWR ::POP STACK INTO aSWR 
MOV ($+, RS : POP STAC INTO RS 
MOV (5P)+'R4 ::POP STACK INTO R4 
MOV (SP)+,R3 ::POP STACK INTO R3 
MOV (SP)+;Re ::POP STACK INTO Re 
MOV (SP)+'RI >;POP STACK INTO R 
MOV - (SP)+/RO ::POP STACK INTO RO 
MOV - &SPWRON, 2#PWRVEC’;;SET UP THE POWER DOWN VECTOR 
MOV #340, JHPURVEC+2 ;:PRIO:7 
TYPE *REPORT THE POWER FAILURE 
SPWRMG: glORD $POWER *:POWER FAIL MESSAGE POINTER 
SILLUP: HALT :; THE POWER UP SEQUENCE WAS STARTED 
BR 2 +: BEFORE THE POWER DOWN WAS COMPLETE 
SSAVRE: 0 *:PUT THE SP HERE 
SPOWER: .ASCIZ <15><12>"POWER" 





- EVEN 
- END 














POE che Oo ck 


ZRKIC. SRC 
AUTSL2 Sean 
Bone ike 4 

ONE 010320 
BAD.IN 011702 
BAD.ON 013702 
BASE 1266 
BASINC 
BEGCT 017244 
BEGCT1 017252 
BEGIN 2562 
BITO = 000091 
BITOO = Ol 
BITO1 = 000002 
BITOe = 000004 
BITO3 = 000010 
BITOY = 000020 
BITCS = 000040 
BITO& = 000100 
BITO7 = 
BITO8 = 000400 
iP 7 ibe 
BIT1O = eed 
BIT11 = 004000 
BITle = 010000 
BIT13 = 020000 
BIT14 = 040000 
BIT1S5 = 100000 
BITe = 000004 
BIT3 = 000010 
BITY = 000020 
BITS = 000040 
BIT& = 000100 
BIT7 = 000200 
BITS = OO040r 
BITS = 001000 
BPTVEC= 000014 
BUFF 013620 
BUFR 022006 
BUSADR 001336 
CHECK1 005410 
CHKCNT 091350 
CLRD 020160 
CNTSIN 901322 

OM 012214 
COMMON Ole2e10 
COMND OQ01316 
CONTIN O11315 

ONT 001332 

& = 000015 

RLF = 000200 
CYCLE Q04134 
CYCLE2 OO41E0 
CYCLe 004150 


013432 


MACY11 27(732) 
CROSS REFERENCE TABLE -- USER SYMBOLS 


14758 250s 
ese ie? 


2773 
14198 2006 
2011 2023% 
30648 3289 
30678 3288 
1591 15988 
13238 2249 
13138 1323 
I3lee 1322 
13118 = 1321 
13108 1329 
13098 1319 
13088 1318 
13078 1317 
13068 1316 
13058 1315 
13048 =§=1314 
13228 2560 
13038 2559 
13028 2559 
13018 1489 
13008 2957 
12998 1679 
1e98% 1780 
13218 2577 
13204 
13198 1971 
13188 1491 
13178 1490 
13168 1761 
13158 2593 
13148 1492 
13308 
1475 2748% 
3502 3503 
14538 1967% 
eO4es e052 
1458% 2185# 
15S = 3163 
14428 8 §61876% 
25158 e528 
eSi4s 
14388 1959% 
23998 e465 
14518 1969# 
12388 3634 
12398 1539 
1705 18438 
18498 
1845 18474 
eb84*  cb8se 
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eSbe 


eS34% 


es79 


2536 


e596 


eSS7 


3154 


3225 







es9l 


3161 3165 3i72 


3227 





3551 


MAINDEC-11-DZRKI-C MACY11 27(732) 23-SEP-76 10:03 PAGE 79 
DZRKIC.SRC CROSS REFERENCE TABLE -- USER SYMBOLS 


CYL 196 spose 2093 
CYL 02 
CYLBAS 15 
CYLONT 001342 
CYLOFF O0SeSe 


833 asss 


3221 3244 


1825* 2105 
1961 c77b% 
2429 33358 33991% 3299% 3400 


32958 
177 1826 2080 2091 


8 1856 1963 
1973% 1976% 202e0% e0el* 2037 2096 2097 2id4* 2108 
eSit ess6 2573 2590 2783* 2818 2847 e312 2917 


3297 % 
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HHRLKE 


238 «2725 


1es4* 1655 1656 1658 672% 1673 IS74* 1676 
1823 1824% ; 


1850 2076 2243. 2297 
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PASTBL ec4l 
“PATTRN 001362 977% e091 e2llle e2ll4e 2187 egll*# 2918 es49% 2951 
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2983 3004 «= 318S* «3189 = 3195* 3198" 3239% 3237 3242e §«22uS* «= 249S* ©9502 «20% 
35, 343t SLY SIR, RPE GEYQ# «3550 S5kS+  3heG 3679 Meee Hee? 368% 





me a a a rt i 
rf . 


Be =000008 leS4e i498e 1499e 1500 
gr =x00000? 12558 Z 
SES OL3444 esr2e 26764 26988 
SECCNT 901344 14568 2100 2319 2926 esse 2975 
SECOND 902412 1525 17318 
SECONE 0067 le 1846 22378 
SECSYS 903010 1839 16478 81664 1829 
SECT. 001305 14288 077 elt? 
SECT.O Ql37le 1602 27bes 
SECT.1 Ol17ie 1601 24788 
SECT.e2 910330 1690 23258 
SECT.3 O0e602 1599 16138 
SECT.4 Ol?lee2 1603 30278 
SECT.S 20456 1804 33648 
SECT.6 021350 1605 34808 3488 
SEEKI 001402 14718 8 6242e0% e427 
SEEKS 001404 l¥7e8 8602422 896 2426 
SEKSET 011500 2421 e4eSs 
SHFCNT OeCeb& He” 2487 248S% 32948 
SHE} 013502 2677 2681 27148 
SHFe 012500 27138 
SHF 3 OLSN7E 2673 268s 2689 27 les 
SIN = 961000 14928 863196 
SINST  O20022 197 32258 
SMTME OOoSSS4 1908 1935 2041 20638 2130 el4e 2343 2349 2433 
“ 2314 2321 2328 23s4 2964 2377 3048 3230 
SF =D09006 leSbe 1502e# 15108 1518* 1522 1582 1624 iéS4 6 
18le% 1825 I83le 188l1# 1990*% 1952 1997# 2000 20les 
2120 2lss* 2170 el74# 2181% e18e% e2197% 2210s else 
278% ess e497% 2768 798 2996# 3004* 3010% 3041s 
3158% 3189* 32ll* 3218# 3229% 3 3490% 3563% 3595+ 
360i# 3603 3605 2607 3613 S615* 3617% 625% 3629 
3670 7? 367e% 36778 3678% 3679% 3685 3719 3711 
373% 3741s 742% 3743 3747" 3749% 3749 3752 3754 
“ 3778% 3785 3789% 3808 3803 38108 3811% 381 
2837% s842e 3850 3851 3854* 3855 38s 
388ie 3907# 3908% 3909 3910% 39ll# 39le* 29l3* 31 
3329 3330 3331 2932 
STACK = G01109 12318 1502 2174 
START C1440 1227 149S# 1726 2s47 2633 2708 2910 
STARTR 001434 1220 14948 
STFLG 001325 144S@ 1527 1S30% 
STKLMT= } ~ l24e8 
STOP 013470 27078 
STORE O32 1633 18198 
STRTL OO1626 1S3l8 1598 
SUR OL34Sé cbe0e 27018 » 
SUR 001140 daase 1506 lee 1514 1$20* 2364 2402 248° 3401 
c 
WREG 000176 12188 1520 
SWTCH 386021334 S40l# 3402% 3417 3422 3432 34578 
SWwO. 20 = 00000) leocss 
SWOS = 000001 loess )§= 1238 
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SWO1 = 0000 12348 
SWO2 = 000004 12838 
SWO3 = 009010 l282s 
suoy = Qho0eD 13818 
SwoS = O00040 12808 
Sue = 009100 13798 
SwO? = 00260 12788 
S08 = OO0400 1e778 
5u08 = 001000 13768 
Swi = 900002 12948 
SKI0 == OBe000 le7Se 
Suil = 004000 12748 
Swiz = 010000 12738 
SW13 = 020000 le7es 
Swi4 = 040000 13718 
SWiS = 100000 12708 
Su2ss 12938 
SW3 = 9000010 12328 
Swett 20 lesls 
SWS) Ss = «900040 12908 
SWS = 000190 12898 
SW7 = 000e0C . [288s 
SWB. = 000400 12878 
SwS ss =_:« 091000 12868 
SYSER 913046 26268 
SYSERR 913560 e7e8 
$10 012079 Each 
Sil C1204 24898 
Sl2 o12166 2Slis 
Si3 012036 24878 
TRBELTY 02476 1529 
TBITVE= 000014 13288 
TBLFUL 004074 1827 
TIME ocs440 2043 
TIMR © -OO1346 149578 
TIMR2 O0132 14438 
TKVEC = 000060 13358 
TPVEC = 000064 13368 
TRAPVE= 000034 13348 
TRTV C= 000014 13298 
TRYAGN 011312 23978 
TSTSN1 114 2128 
TYPE = 104401 1536 
| 1619 
1877 
2206 
2380 
2800 
i 2ges 
2006 
3157 
3377 
3800 
TYPEIT O1L3564 2541 
| TYPCC = 104402 5496 
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COMMEN © iw = 13388 

ENDCOM le 13388 

ERROR 12308 

ESCAPE ls 13388 

GETPRI le 13388 ve 

GET ig 11928 13388 15378 

MULT le 13388 

NEWTST le 13388 

POP le 13388 3856 46963925 «= 3927 
PUSH le 13388 3835 «©= 3907 «3913 
SCCPE 12338 





SETTRA 38848 3893 3894 3895 3898 3899 3900 
SETUP 
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1365 1366 1394 1398 
1454 1133 1456 1457 
1469 14 1471 472 
se95 «3335 336 8 3337 


ERRORS DETECTED: 0 
DEFAULT GLOBALS GENERATED: 0 
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